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ABSTRACT 



An airborne tactical system composed of three 
distributed microcomputers is described. An 
extrapolation technique using the method of orthogonal 
polynomials is presented to solve the ballistics 
problem. 

In order to test the performance of distributed 
microcomputers for real time military applications, a. 
simplified airborne tactical system, utilizing two 
microcomputers working in parallel, is i .mplement ed. 

The motivation for this researcli is the reduction 
of cost that would result from the use of 
microcomputers in such systems. 
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I. 



INTRODUCTION 



Airborne tactical systems on board attack aircraft are 
designed to perform the following functions: 

1 . To navigate to a given target. 

2. To control the aato-pilot. 

3. To display information to the crew members. 

4. To solve the ballistics equations that will 
compute the down range travel of the weapon. 

5. To extrapolate from the available data, the 
release point of the weapon. 

Current tactical systems employ a minicomputer as their 
main computing device. 

An alternate approach to solve this problem is by the 
use of several microcomputers processing in parallel in 
place of the minicomputer. Although the most recent 
microcomputers are much faster than their predecessors, they 
still lag behind the minicomputers in their arithmetic 
processing capability. That is why a distributed system is 
needed. In such a system, the processors are put to work 
with as much parallelism as possible and they communicate 
with each other by means of an interrupt mechanism. The 
result is that the single computing cycle is broken up into 
smaller cycles some of which are executed in parallel, 
reducing the response time. 
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In this system, three microprocessors constitute an 
airborne tactical system; 

1. The Executive computer. 

2. The Navigation computer. 

3. The Ballistics computer. 

Because of the availability of only tv;o microcomputers, 
this thesis implements a simplified version of an airborne 
tactical system using two I n tellec/8-Mod 80 microcomputers 
working in parallel to simulate the attack function of tne 
system. 

The system computes from a given series of aircraft 
positions with respect to the target the release point of 
the weapon so as to hit the target. All of this happens on a 
real time basis, controlled by an external clock. 

Fig 1 shovfs a photograph of part of the system. 
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To provide the reader with an understanding of how a 
tactical systeo performs. Chapter II describes a system 
using three microcomputers. 

Chapter III consists of an analysis of the ballistics 
problem which will be the critical part of the implemented 
system. 

In Chapter IV, the work done on the I.B.I1. System /360 
with FORTRAN is described. The objectives of this phase of 
the project were mainly experimentation with system 
organization and design and testing of numerical methods. 

Chapter V has a brief report about the necessary 
hardware adjustments and setup needed for the 
multiprocessing scheme. 

Finally, in Chapter VI, the PL/M implementation is 
described, together with four test cases. 

The data used were partially obtained from real runs 
performed at the China Lake target range. 

Appendix A contains the FORTRAN program that was written 
to perform the conversion from the encoded data of range, 
elevation and azimuth of the aircraft, as tracked by a 
Nike-Zeus radar, into decimal representation of altitude and 
horizontal distance to target. The program also computes 
speed and dive angle, to be used to test the extrapolation 
routine. This same program, converts these values into the 
three byte floating point number format for the PL/M 
program. 

Appendix B shows a program which tests the extrapolation 
routine. 
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II 



• description of the sy stem 



The system is composed of three computers, sensors. 



display units 


and 


auxiliary d 


evices 


, each 


of which is 


described below. 


The reader 


may 


find a 


more complete 


description cf 


the 


sensor instru 


ments 


in [2]. 





A. THE NAVIGATION COMPUTER 

This computer executes a program that periodically polls 
sensors in order to compute the change in the aircraft's 
position during the last tine increment. There are fear sets 
of sensors to gather the necessary analogue data which is 
then converted to digital form and presented to the 
computer . These sensor instruments are: 

1. The Inertial Navigation System (IMS). 

2. The Doppler Radar (DR). 

3. The Air Data Computer (ADC). 

4. The Radar Set (RS) . 

The INS is a gyro-stabilized platform with 
accelerometers mounted so that accelerations of the vehicle 
are measured in the north-south, east-west and vertical 
directions. It operates on the principle that every time the 
aircraft changes speed or direction it experiences an 
acceleration. With the continuous measurements of 
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aircraft's accelerations the INS determines the velocity by 
means of analogue integration. 

A Doppler Radar radiates a pattern of beams to the 
surface of the earth and receives the reflection of this 
energy back. The difference between the frequency of the 
transmitted signal and the frequency of the received signal 
caused by the relative motion of the source of the signal 
with respect to the reflecting surface is known as the 
Doppler Effect. By measuring the frequency shift along each 
beam, the DR computes the velocity and distance travelled by 
the aircraft. 

The Air Data Computer consists of the aerodynamics and 
thermody namics sensors: angle of attack vane, static 
pressure source, Pitot tube and temperature probe. It 
computes the airspeed, the free-stream outside-air 
temperature and the Mach nui-aber. 

In order to use the ADC for dead-reckoning, the attitude 
and heading of the aircraft must be supplied from other 
sources. This information together with the information of 
wind's velocity and direction, allows the determination of 
the aircraft’s position by extrapolating from a previously 
known position. 

The Radar Set determines the distance of the target by 
measuring the time elapsed from the transmission of a 
electromagnetic wave to its reception after being reflected 
by the target. The bearing is determined by the antenna's 
direction. 

The system has a magnetic compass that indicates the 
aircraft's heading in relation to tlie magnetic north. 

An altimeter supplies the system with altitude 
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information 



There are four basic modes of operation of this system: 
By using both the Ills and the DR, the system operates in its 
most accurate mode. If one of these primary sources is 
malfunctioning, the system operates without its information, 
resulting in other modes of operation. In the case of 
failure of both Ills and DK, the system operates in its least 
accurate mode using the ADC with the estimated wind vector 
and true airspeed of the aircraft to compute latitude and 
longitude. 

No matter in which mode the system is operating, the 
information of aircraft's position is smoothed by the 
Navigation computer. The four most recently computed points 
are approximated by a quadratic polynomial using a 
lea st-sg uar es fit. This smoothing process has a damping 
effect that reduces spurious oscillations of the data 
points. The mathematical description of this technique is 
found in Chapter III. 

Using the smoothed data values; the increments in 
distance travelled in the last time increment are computed 
and the position coordinates displayed. As soon as the new 
values are computed, the Navigation computer interrupts the 
Executive and transfers this information to the Executive 
computer. The Navigation computer has the ability to 
function in a stand-alone mode to display aircraft location 
regardless of the status of the rest of the system. 

Another important feature of the least squares curve 
fitting technique is the ease with which sensor malfunctions 
may be spotted. The crew is warned of the ill behavior of 
one of the sensors, and the system's mode of operation may 
be changed. 
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B. THE BALLISTICS COMPUTER 



This coaputer receives from the Executive computer: 
aircraft speed, dive angle and altitude. The type of weapon 
and target’s altitude are initially received from the 
Executive computer. With all these data, the computer 
numerically solves the differential equations to compute the 
down range travel of the weapon. There will be no guidance 
of the weapon after release, although the weapon may be 
rocket assisted or have a retarded mode of fail. When the 
Ballistics computer finishes its calculations, it interrupts 
the Executive computer to transfer the results. 



C. THE EXECUTIVE COMPUTER 



The Executive computer controls the function of the 
v;hole system. It sends to the Ballistics computer, at the 
beginning of the run, the target’s altitude and the weapon 
selection. The Executive computer will be interrupted by 
the Navigation computer which periodically reports the 
aircraft’s position. This information is sent to the 
Ballistics computer after it is converted into the proper 
form. 



The number of data points that the Executive computer 
needs for the extrapolations depends on the degree of the 
fitting curve. In this system, it will be a third degree 
polynomial. In order to guarantee a solution to the 
extrapolation process, the Executive computer has to be 
supplied with at least four distinct data points. 

When the Executive computer has enough data points 
representing horizontal distance to target and respective 
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down range travel together with the corresponding time, it 
extrapolates these two functions of time and finds their 
intersection. At the intersection of these two curves, the 
distance to the target will be the same as the down range 
travel. Ihus, this will be the release point which is 
sought. 



This ccraputer will divide its time betw 
manipulation, data transmission, displaying of in 
computation of release point and delivering 
commands to the auto pilot. If so desired, when t 
point is reached, the computer will automatical! 
the release mechanism. 



een data 
formation, 
steering 
he release 
y trigger 



An 


external 


real tine 


clock 


provides the 


Executive 


computer with 


exact time. 


so that 


time dependent 


variables 


may be 


recorded 


together wi 


th real 


time values. 





D. TH3 CCFiMUNICATION SCHD^lE 



Because of the inheren 
involved, the master-slave 
most suitable and simple f 
and the Navigation computer 
the Executive computer, re 
scheme. The only computer w 
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III. THE BALLISTICS PROBLEM 



In the most general form, tliis problem may be described 
as follows. 

The aircraft’s position in space is described at time t 
by a radius vector r(t) in a three dimensional coordinate 
system. The aircraft's velocity is described by the 
derivative with respect to time of the radius vector, i.e. 
the vector dr/dt=r 

These two vectors are shov/n in Fig 2. 
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Figure 2 - VISUAL DBSCRIPTIOtJ OF THE BALLISTICS PROBLEM 
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its 



It is assumed throughout that the aircraft during 
final approach to the target is restricted to fly in a 
vertical plane that contains the target and the origin, so 
that the problem becomes two dimensional. 



In the 
aircraft is 
shows. 



presence of strong winds, the ground 
used to determine the X-Y plane as 



track of 
Fig 3 
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Figure 3 - TH3 WIND EFFECT 
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The target is located on a line which is parallel to the 
ground track of the aircraft, so that at the estimated 
release altitude the wind will carry the weapon through the 
distance between the ground track line and the dotted line 
parallel to the X-Y plane. 

In the case that the wind direction coincides with the 

aircraft's heading, the target will be in the X-Y plane and 

the wind effect will either reduce or increase the down 

range travel of the weapon. 

With the problem, now reduced to two dimensions, the 
following mathematical formulation applies: 

At the instant the weapon is released from the aircraft, 

the initial position and velocity of the weapon agrees with 

the position and velocity of the aircraft. There may be a 

small added initial velocity when the weapons are released 

by small charges, cr there may be a large added muzzle 

velocity fcr rockets and guns. In any case, the initial 

velocity of the weapon is determined by the aircraft's 

velocity r (t ) plus the constant vector V. • 

0 

After released, the weapon becomes a freely falling body 
satisfying Newton's differential equation 

mu=mg-c |u| u. 



where u is the position vector of the weapon and the 
forces acting on the weapon are the gravity and drag which 
is proportional to the velocity squared. The term c is a 
characteristic drag term and it is weapon dependent. 

In the two dimensional coordinate system, the equations 
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become u= (x , y) . 



2 .2 . 
mx=-c\/x +y X 



-\h^ 

my=-mg-c W x + 



y y 



( 1 ) 



with initial conditions: 



X (t ) =r (t ) X {t ) =r (t ) +v 

0x0 0 x 0 X 



y(t )=r (t ) y(t )=r (t )+v 
0 y 0 0 y 0 y 



The bombardier's problem is to determine the time t at 
which to release the weapon in order to hit the target. 
Stated mathematically, what needs to be solved is the 
combination initial value-boundary value problem; 



.. ^/T2T2 . 

mx=-cwx +y x 



X (t) =r (t) x(t)=r (t) +v 
X XX 



iy=-mg-c\/x 



my=-mg-c\/x +y y y (t) =r (t) y(t)=r (t) +v 

y y y 



with the boundary condition that at time t: 



y(t)=0 x(t)=T 



In order to give a clearer understanding of the problem, 

let it be further simplified by assuming that the drag 

forces on the weapon are negligible. In this case, the 

differential eguations become very simple. Let it also be 

that the release point t =0. The system becomes: 

0 
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mx=0 



x(0)=r (0) 

X 



X ( 0 ) =r ( 0 ) + V 

X X 



my=-mg y(0)=r (0) 

y 



y (0) =ir (0) +v 

y y 



The analytic solution to the initial value problem is 
obtained by integrating both equations twice with respect to 
t, resulting: 



X (t) = (r (0) +v ) t + r (0) 

XXX 



2 

y(t)=-gt /2+ (r (0)+v ) t+r (0) 

y y y 

Next it is desired to find at what time t”*" does the 
weapon hit the ground, i.e. at what time t* is the condition 
y(-tr)=0 met. 

This question is answered by solving the quadratic 
equation for the positive root: 



-gt /2+ (r (0)+v ) t + r (0) -0 

y y y 



giving: 



t=(r 



y 



(0) +v ) /g + 

y 




Y 



2 

(0) +v ) +2gv 

y Y 



/g 



Therefore, in order that the weapon hit the target at 
time t* 
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As an example, if the aircraft is at level flight with 
constant speed: 

r =0 r =constant=S 

y X 



r =h, and 

y 



T=(S+v )[v /gA/ V +2gh /g]+r (0) 

X y V y X 



The release point (r (0) ,h) is then given explicity bv; 

X 



r (0)=T-(S+v )[v /g+"\/v^+2gh /g ] 

X X y V y 

Even in the general case, relation (2) allows the 

determination of the release point (r (0) ,r (0)) implicitly. 

X y 

Therefore, if the drag effect is neglected, the 
initial-bcundary value problem is relatively easy to solve. 
However, drag cannot be ignored in the real case, requiring 
that the more complicated system of differential equations 
(1) be solved. 

If a dedicated computer is employed to solve the initial 

value problem (1) sufficiently fast, the down range travel 

x(t^) may be determined for any release instant t 
0 0 

Therefore the release time t would be that value for 
which x(t)=T. 

To solve this problem, all that is needed is an 
extrapolation technique, so that from successive aircraft 
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horizontal distances to target and corresponding computed 
down range travels it is possible to estimate future values 
for these two functions. At the release point these 
estimates should coincide. 

The extrapolation technique employed is a least-squares 
approximation as follows. 

It is desired to approximate a series of N data points 
f (x )j> by a function of the form 

F(x)=d u (X) +d u (x)+... + d u (x) , 

11 22 kk 

that depends linearly on the parameters d ,...,d . 



The functions u (x) , are selected a priori and the 

i 

parameters must be determined. 



In order to approximate the data points f(x ) by the 

n 

function F(x), the parameters must minimize the function 

“ 2 
E{d ,...,d )= E [f (X )-F(x) ] 

1 k n.i n 

This criterion function leads to the least-squares 
method. 

By applying minimization techniques, one gets the 
following system of k linear equations in k unknowns; 
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( 3 ) 



d Z. u (X ) u 
1 nn i n 



(X ) +. . . +d E 
n k 



U (X ) u 

ink 



(X ) = 

n 




(X ) U , (X ) 
n 1 n 



i=1 



k 



It may happen that although this system always has a 
solution it turns out to be unreliable if the matrix A of 
the coefficients is ill-conditioned, i.e. if its condition 

-1 

number, cond(A) = |A| |A | is too big. 

Next it will be shown what the effects of using 
orthogonal polynomials are and how to generate these 
polynomials . 

The cond (A) depends entirely on the choice of the 

functions u (x) . One v/ay to garantee a small cond (A), is to 
i 

use orthogonal functions, to get; 

Z! u (X ) u (X ) =0 i# j 
i n j n 

By such a choice of orthogonal functions the system (5) 
reduces to: 

M 

= Z f (X )u (X ) i = 1,...,k 
n i n 

which, besides rendering reliable results, is much simpler 
to solve, reducing the computation involved. 

The definition of the scalar product of two functions g 
and h that v:ill be used is: 
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u 

<g/b>= Z g (X ) h (X ) 
n n 



The functions are said to be orthogonal to each other if 



<g,h>=0. 



A sequence of polynomials |p (x)| is said to be 

orthogonal if all P (x) are orthogonal to each other and 

i 

each P_ (X) is a polynomial of exact degree i. One property 



of such a sequence is that any polynomial p (x) of degree <k 



can be written as 



p(x) =d P (X) +d P (X) . .+d P (X) (4) 

0 0 11 k k 



The measure of difference between f (x) and p(x) that 
needs to be minimized can be written as 



2 

[ f (X ) -p (X ) ] 

n n 



And , 



<f (x)-p (X) ,f (X) -p(x) >= Z 



E(d^/. . . / d^) — 



=<f(x)-d P (x)-...-d P (x),f(x)-d P (x)-...-d P (x) > 
00 kk 00 kk 



The coefficients that produce the best fit have to 
satisfy the system of linear equations; 



* ♦ * 

d <P ,P >+d <P ,P > + ...+d <F ,P >=<f,P.> i=0, ,k 

OOilli kki 1 
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By orthogonality, this reduces to: 



d <? , P >=<f ,P > i=0, . . . ,k 

i i i i 



Thus, if S =<P ,P >/0 i=0,...,k 

i i i 



the coefficients will be given by: 



* 

d =<f,P >/S i=0,...,k 

i i i 



l.'ow it will be shown how the sequence of orthogonal 
polynomials may be generated from the H data points. 



These polynomials satisfy the three term recurrence 
relation : 



P (x)=A (x-E )F (X)- C P (X) i=0, 1, . . . , k-1 

i+1 i i i i i-1 



B =<xp (x),P (x) >/S i = 1,...,k-1 
i i i i 



C =arbitrary i=0 
i 



C.= (A.S.)/(A. S. ) i>0 

1 11 1- 1 1- 1 



Where A =a /a all i 
i i+1 i 



P (x)=0 

-1 



S =<P ,P >5^0 i=0,...,k-1 and a is the leading 

i i i i 
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coefficient cf the polynomial P 

i 



For simplicity it is decided to get all orthogonal 
polynomials with leading coefficient egual to 1, so that: 



A =a =1 all i. 
i i 



Setting P (x)=1, 
0 



S =<P ,P >= Z 1 = N 
0 0 0 1 



Next, from the recurrence relations; 



P^ (x) = (x-B^) P^ (X) / where 



B =<xP (x),P (X) >/S = Z X /S 

0 0 0 0 n-., n 0 

With F (x),...,P (X) already obtained, the general steo 
0 j 

is; 



S =<P.,F >= [P.(x ) ] 

D 1 D n-. 3 n 

Because P (x) is of exact degree j, S can be zero only 
3 ■ j 

if no more than j of the points x ,...,x are distinct. If 

1 N 

there are more than j distinct points among the data points. 



it is possible to calculate: 



B =<xP (x),P (X) >/S = Z X [P (X ) ] ‘/S 

3 3 j j n j n j 
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c =s /s 

3 3 3-1 

The next orthogonal polynomial V7ill be: 

P. (x) = (x-B.)P.(x)-C.P. (X) 

3+1 333 3-1 

As an example, the method will be applied to approximate 
the second degree polynomial 



2 

f (x) =1 0-2x+x / 1 0 



at the points given by: 



X =10+(n-1) /5 f =f (x ) n = 1 



r • • • / 



6 



n n n 



Z C f -P (X ) ] , needs to be minimized. 






Thus , 



P (x)5l/ S = Z 1=6 



0 0 1 



and B =Z [ 10 + (n- 1 ) /5 ]/6 = 1 0 . 5 




S = [ (n-1)/5-0.5 ] =0.7 

1 nrt 



h 

V 



2 



B = }_ [ 10+ (n- 1) /5 ][ (n- 1) /5-0.5 j /0.7=10.5 

1 



r* 



2 



C =S /S =0. 1166667 
1 1 0 
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p 

2 



(x)= (x-10.5) 



2 

-0. 1166667 



5jc 

Next the coefficients d ,d and d for the leas t-sguares 

0 1 2 

approximation; 



3jc Jjc 3}c 

p (x)=d P (X) +d P (x)+d P (X), are calculated; 
0 0 11 2 2 




Z f /6=0. 03666667 
«•' n 




f P (X ) /0.7=0. 1 
n 1 n 




(X )/0. 05973332=0. 999939 
n 



Finally ; 



p (X) =0.03666667 + 0. 1 (x-10.5) + 



2 

+ 0.0999999[ (x-10. 5) -0. 1 166667 ] 
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IV. 



FORTRAN S IMU LATION 



It was realized that it would be advantageous to produce a 
FORTRAN simulation using the IBM System/360, because: 

1. The computing environment has more power and the 
arithmetic is easier to handle than in PL/M. 

2. The system's performance can be checked with 
respect to timing constraints. 

3. The alternative computer program allows accuracy 
comparisons to be made with the PL/M implementation. 

After the FORTRAN simulation had been tested and fully 
exercised, the PL/M program was then produced, taking 
advantage of the experience obtained during the development 
and use of the FORTRAN program. 



In this simulation, the Navigation and the Ballistics 
computers are represented by subroutines and there has been 
no attempt to simulate the transfer of data mechanism 
between computers, because it was realized that the amount 
of effort required would not justify it. 



The modules that comprise the simulation and their 

functions are; 

MAIN Governs the logic of the simulation and takes care 

of the real time clock. 

INIT Performs the initialization for each particular 

run. 

ICHECK Checks if there is a solution to the problem. If 
there is a solution, it then veri.fies if there is 
enough time to compute the solution. If the 
aircraft is too low and could be hit by the 
weapon's fragments, the pilot is warned. 
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DSPLAY 

POS 

BAL 

SETDAT 

DECODE 

TRAJ 



RUNGE 

DERIV 

INTER 



CO«P 



ORTFIT 



Displays the results and messages. 

Calculates the aircraft position and updates its 
airspeed . 

Interfaces the !1AIN module with the Ballistics 
modules. 

Does the initialization process for the Ballistics 
computations. 

Sets parameters for the Ballistics computation, 
according to the selected weapon. 

Calculates the downrange travel and time of flight 
of the selected weapon at the current aircraft 
position and speed. 

Auxiliary module of TRAJ. 

Auxiliary modulo of TRAJ. 

Commands the intersection search pattern for the 
horizontal distance to target and the dcwnrange 
travel curves. 

Does a stepwise comparison between the horizontal 
distance to target and the downrange travel 
curves, searching for their intersection. 
Extrapolates values for the horizontal distance to 
target and the downrange travel curves for a given 
time. 
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PROGRAM VARIABLES: 



VARIABLE 


DEFINITION 


A 


Range Kutta parameter. 


AA 


0.5/Runge Kutta parameter. 


ALT 


Weapon release altitude. 


AN1 ,AN2 


Range Kutta variables (X direction) 


AP1,AP2 


Range Kutta variables (Y direction) 


CC 


Matrix of drag curve coefficients. 


CF 


CKDG stretch factor. 


CFO EM 1 


CKDG stretch factor for tne first stage. 


CFORM2 


CKDG stretch factor for the second stage. 


CKDG 


Bomb coefficient times drag coefficient. 


CM 


Mach number. 


CT 


Matrix of Mach curve coef f icients. 


DEG 


Weapon release angle. 


DEL 


ArcTan (ejection velocity/weapon velocity) 


DKG 


Shift in CKDG 


DKG1 


Shift in CKDG for the first stage. 


DKG2 


Shift in CKDG for the second stage. 


DM 


Shift in Mach number 


DMAX 


Largest integration step size. 


DM1 


Shift in first stage Mach number 


DM2 


Shift in second stage Mach number. 


DS 


Integration step size. 


DTI 


Initial integration step size. 


FN 


Equal to the thrust for the first stage. 


FRACT 


Parameter for Range Kutta integration 


G 


Acceleration due to gravity. 


HH 


Total drag function. 


ISOTH 


Key determining if two drag curves are 




required by the weapon. 


IDNO 


Identification number of each weapon. 


IREF 


Reference for Mach curve coefficients. 


IREG 


Mach region index. 


MSTG 


Weapon stage index. 
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RAD 

RHO 

SL 

T 

TH 

THETA 

U 

V 

vx 

VXA 

VXO 

VY 

VYA 

VYO 

VZ 

X 

Y 

YO 

YT 

VKTS 

HV 

VV 

HVA 

VVA 

XAT 

TIME 

FTIME 

HTIME 

DTEAL 

DTE1 

DTE2 

DTE3 



Conversion factor for radians. 

Air density. 

Slope coefficient for retarded snakeye 
fins deployment time. 

Elapsed time of flight from weapon 
release. 

Thrust/mass of rocket. 

Adjusted weapon release angle. 

Aircraft speed in feetSeconds. 

Velocity of weapon. 

Component of V in the X direction. 

VX at release point. 

VX at start of present integration step 
Component, of V in the Y direction. 

VY at weapon release. 

VY at start of present integration step 
Muzzle velocity of guns. 

Weapon ground range from release. 

Weapon altitude above sea level. 

Y at start of present integration step. 
Target altitude above sea level. 

Speed of aricraft in knots. 

Horizontal component of VKTS. 

Vertical component of VKTS. 

Previous value of HV. 

Previous value of W. 

Horizontal distance to target. 

Real time. 

Saved value of TIME for DSPLAY. 

Previous value of TIME. 

Time spent by the Ballistics Computer. 

Time spent by the Executive Computer to 
transfer data from the Navigation Computer 
Time spent by the Executive Computer to 
transfer data from the Ballistics Computer 
Time spent by the Executive computer to 



35 



DTE4 

DTE5 

DTE6 

TC 

TARP (2) 
XARP (2) 

A ARP 
THV 

ATOL 

RLIH 

ALIM 



compute the release point. 

Time spent by the Executive Computer to 
execute check number two. 

Time spent by the Executive Computer to 
transfer data from the Navigation Computer 
and execute check number four. 

Time spent by the Executive Computer to 
save and restore values when calling the 
Navigation Computer and execute check 
number three. 

Time necessary to compute for the first time 
the release point. 

Time at release point. 

Horizontal distance to target at release 
point. 

Aircraft altitude at release point. 

Time it takes for the aircraft to start the 
evasion. 

Limit angle between aircraft path and 
line of sight of the target. 

Radius of a hemisphere defining a danger 
zone around the target. 

Limiting altitude for the aircraft. 



The units of the 
Distances: 
Altitudes; 
Angles: 

Time: 

Speed: 



variables are: 

Nautical miles. 
Feet. 

Degrees. 

Seconds. 

Knots. 



The values of DTBAL, DTEI, DTE2, DTE3, DTE4, DTE5, DTE6, 
THV, ATOL, RLIH and ALIH were assumed in this 
simulaticn. Most of them are weapon dependent- 



This program used a least-squares fit of the third 
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degree, by means of orthogonal polynomials [3]. After the 
fourth aircraft position and corresponding downrange travels 
are computed, the Executive Computer proceeds to compute the 
first release point data. From this time on, for every new 
position and corresponding downrange travel received, the 
Executive Computer determines an updated release point using 
the four most recent aircraft positions with their downrange 
travels. This process goes on until there is no more time to 
compute the next release point. 

The way the release point is found is by a stepwise 
comparison between the extrapolated values of the horizontal 
distance to target curve with the downrange travel curve. At 
the release point, these two curves intersect. After the 
curves have been extrapolated from the first four points, 
the comparisons between the extrapolated values of the two 
functions are made from point number five on. When the 
intersection point is passed, the direction of the search is 
reversed and the time increment is reduced. The search 
continues until the difference between the curves is smaller 
than a fixed limiting value. 

Fig 4 shows graphically how the search for the 
intersection is made. 



37 



\ 




0 




H h 

3 A 



+ 

S 



+ 



_u w 
-I l i t I i I 

8 li « 9 



Figure 4 - RELEASE POINT TIKE DETESKINAT ION 
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The ICHECK module has 4 entry points and its function is 
to check for exceptions. First, with the initial data, it 
checks if there is a solution to the problem. There are two 
situations that would not have a solution: 

1. The aircraft dive angle is such that the impact of 
the weapon would always be short. This happens if, for a 
given weapon, the angle between the aircraft path and -cue 
line of sight of the target is less than a certain 
threshold. 

2. The aircraft is not diving and the present 
distance to target is smaller than the downrange travel. 

There is another situation in which the solution should 
not be computed, because at the release point the aircraft 
would be below its limiting altitude. In this case the 
system would also display "NO SOLUTION TO THESE DATA". 

Because the computation of the release point reguires 
approximately one second of real time, it is necessary first 
to check if the extrapolation can be carried out in time to 
release the weapon. If this can not be done, the system will 
display "NOT ENOUGH TIME TO COMPUTE". 

Every time a release point is computed, the ICHECK 
module checks if at the moment of weapon impact the aircraft 
is inside a danger zone which is defined by a hemisphere 
around the target whose radius depends mainly on the weapon 
used. If this is the case, the system will display : "AIRCRAFT 
IS IN DANGER ZONE". 

After each release point calculation the ICHECK module 
verifies if there is time to compute a new release point for 
the next position. 
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V. 



THE MIC ROCOMPUTERS HARM^HE IMP LEM ENTA TIO N 



The hardware implementation of the system required that 
the two computers have a second input-output board 
installed, in order to provide all the connections needed. 

To maJce the system simple, it was devised so as to use 
the fewest number of input-output ports possible. One of 
the key facts that allowed reduction of the communications 
paths among the computers was the predictability of message 
lengths throughout the complete cycle of system operation. 
The result is that there is no necessity of a status port 
during transmissions of data. 

The Intellec microcomputer, as it is furnished by the 
manufacturer, does not have available externally tlie eight 
lines that constitute the interrupt port, nor does it have 
an external interrupt request line. It was necessary to set 
up a board to be installed on the Executive computer, to 
bring out these lines, so that the necessary connections 
could be made. Fortunately, this turned out to be the only 
change necessary to use the interrupt feature. 

Another addition to the Executive computer was the 
external clock with an eight bit binary counter that was 
connected to one of its input ports. 

Fig 5 shows the system's components. In this figure, 
the numbers correspond to the eight bit input-output ports 
of the computers. PTR stands for paper tape reader and DU 
stands for disk unit. In the Executive computer, the 
Interrupt Instruction port (II) and the Interrupt Request 
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line (Int) are shown. The Executive computer will be 
interrupted by means of the Restart 3 instruction, which has 
the bit pattern DF. 
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VI. PLZ^ HiPLEliENTATigN AND THE TEST CASES 



The system's software is composed of two separate 
programs, one for each computer. 

The program that runs on the Ballistics computer has two 
procedures to take care of the communication with the 
Executive computer. The first one is to receive the weapon 
identification number and target altitude at the beginning 
of the run. The other is to receive speed, dive angle and 
altitude of the aircraft and, subsequently, compute the down 
range travel. The module that computes the down range travel 
was the subject of a previous thesis [1] and is used in this 
system with only minor adaptations. When the computation of 
the down range travel is finished, the Ballistics computer 
interrupts the main computer in order to send back the 
results. If there is already data for the next computation 
of down range travel, this same procedure will receive the 
new data and proceed to compute. Otherwise the Ballistics 
computer will exit from this procedure and return to the 
main program. In this fashion the system guarantees that 
the Ballistics computer will be used at its maximum. This 
policy had to be adopted in view of the fact that the 
computation done in the Ballistics computer is the most time 
consuming in the system. 

The system works in such a way that the Executive 
computer will only send data directly to the Ballistics 
computer if it is idle, in which case the Ballistics 
computer will be waiting for data, no interruption needed. 
If the Executive computer has data to send but the other 
compute;: is busy, a condition that the Executive computer 
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knows by testing a flag, the data is sent to a buffer. 



The interrupt service procedure in the Executive 
computer is the one that upon completion of receiving tae 
computed value from the Ballistics computer, checks if the 
buffer has data yet to be processed by the Ballistics 
computer. If this is the case, it will take care of 
transmitting it to the other computer. 

The program that runs in the Executive computer is 
composed of the following modules, with a brief description 
of their functions: 



Moni : 


Links the program to the I/O facilities 
of the CP/M system if no returned 
value is expected. 


Mon2 : 


The sane as above, except that a returned 
value is expected. 


Read : 


Reads characters from the CRT into a 
buffer . 


Print ; 


Displays the buffer starting at the 
specified address. 



Printchar: Displays the specified ASCII character. 



Crlf : 


Sends carr iage-^return-line-fead characters. 


Getc : 


Points to the current character in the 
buffer. 


Readc: 


Reads one character from the buffer. 


Readp : 


Reads a pair of characters from the buffer 
and returns the corresponding decimal 
value. 



All of the above modules are needed to use the CRT as an 
I/O device by the CP/M system [4]. 



Conv ; 


To return the decimal value of the number 
character. 


Trans : 


Returns the ASCII character. 


Clock: 


Reads in the values of the external clock. 



Realt ; 
Relpt ; 
Sendbuf f : 
Dsplv ; 
Display: 

Polin : 

Ftab: 

Search: 

Round: 



Extrap: 

Negat : 
Mant ; 

Poten: 

Integ: 

Decim: 

Index : 

Comp: 

Intserv: 



Displays real time. 

Computes and displays the release point. 

To send data to the buffer. 

Displays the variable value. 

Displays aircraft’s speedy dive angle and 
altitude. 

Computes the coefficients and constants 
used by the fitting plynomial. 

Floats the byte values of time. 

Finds the intersection of the curves being 
extrapolated. 

Chooses the closest time to the 
intersection point, in 
decimals of second. 

Given the time, extrapolates the value of 
the function. 

Tests if the variable is negative. 

Converts the mantissa of the number to 
decimal value. 

Computes the decimal value of the exponent. 
Displays the integer part of the values. 
Displays the decimal point and one decimal 
place fraction of the variable. 

Finds the location of data in NAVTAB given 
the time. 

Auxiliary module of Search. 

Interrupt service procedure.’ 

Receives compixted values from the 
Ballistics computer. If the 
buffer is full, it sends new data 
to the other computer. 



The simulation of the Navigation computer is 
accomplished by the use of a table with values of speed, 
dive angle, altitude and horizontal distance to target at 
points in time one second apart for the first ten points and 
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one tenth of a second apart for the last thirty points. 

The first part of the table is used to obtain points to 
extrapolate values of horizontal distance to target. From 
the calculated values of down range travel using these same 
points, extrapolations of this variable are made. 

The second part of the table has finer time increments 
in order to allow a more precise determination of aircraft's 
position at release point. 

The complete cycle of operation of the system is as 
follows: 

1. After checking if the Ballistics computer is 
ready, the Executive computer waits for inputs of run 
identification number and weapon identification number by 
CRT. 

2. The Executive computer sends the weapon 

identification number to the Ballistics computer. 

3. The Executive computer waits until the clock reads 
zero seconds. 

4. The Executive computer brings from the NAVTAB 

table to a working area, the data corresponding to the 

present time. 

5. These data are sent to the Ballistics computer if 
it is idle or to a buffer if it is busy. 

6. The Executive computer displays the data sent, on 
the CRT. 

7. The Executive computer waits until two seconds 
after the last point was sent to the Ballistics computer. 

Steps 4, 5 and 6 are executed three more times. 

During the time these events are taking place, the 

Ballistics computer calculates the down range travel and 
interrupts the Executive computer in order to send the 
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results of its computations. 



There will be two instances where the Executive computer 
interrupts will be disabled: during buffer accesses and 
during displaying of data on the CRT. 

8. When the Executive computer already has the down 
range travels for all four points, it computes the release 
point . 

9. With the computed time for the release of the 
weapon, the NAVTAB table is accessed in order to obtain the 
corresponding position of the aircraft. 

10. This data is sent to the Ballistics computer. 

11. The Ballistics computer calculates the down 
range travel and sends it back to the Executive computer. 

12. This result is displayed on the CRT. 

The system returns to step 1. 

The two second interval between the data points used for 
the extrapolation was adopted because of the displaying of 
information on the CRT during the time the computers are 
computing the release point. This display function takes on 
the order of one second to be performed. In a real 
implementation, the displaying would be avoided during the 
release point computation, because it v;ould slow down the 
process. 

This program was exercised with four sets of data. Runs 
one and two used real data that was obtained from a digital 
recording of radar tracking during A7 aircraft practice 
bombing runs at China Lake. Run three used data generated 
to represent level, constant-speed flight. Run four used 
constant dive angle and speed. 

The sequence of displayed messages on the CRT, for runs 
one and three, were photographed. These photographs appear 
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in the section entitled PL/M program output, 
page 98. 



starting on 



In the following table, the Fortran and the PL/M results 
are summarized. 

The PL/M results are the real internal values, not the 
displayed values. The Display routine gives only approximate 
values. 

This table shows for each run, the computed values of 
time of weapon release and corresponding aircraft's distance 
to target and down range travel. It also shows the actual 
values of distance to target and down range travel at the 
computed release time. 
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PL/M 



Run # 1 



COMPUTED 
Run #2 



COMPUTED 
Bun #3 



COMPUTED 
Run #4 



COMPUTED 



FORTRAN AND PL/H EESULTSj_ 



Tine 

Distance to target 
Down range travel 
Tj^ulated values^ 
Time 

Distance to target 
DOWN RANGE TRAVEL 
Release Eointj^ 

Tine 

Distance to target 
Down range travel 
T ab ulated valuesj^ 
Time 

Distance to target 
DOWN RANGE TRAVEL 
Relea se point : 

Tine 

Distance to target 
Down range travel 
Ta bu l at ed v al ues: 
Time 

Distance to target 
DOWN RANGE TRAVEL 
ESiSSse point : 

Time 

Distance to target 
Down range travel 
^bulated valuesj^ 
Time 

Distance to target 
DOWN RANGE TRAVEL 



Fortran 



10.84 

1831.4 

1831.4 

10.84 

1831.5 

1852.5 

11.14 

1895.2 

1895.2 

11.14 

1894.7 

1891.7 

11.18 

1837.3 
1837.3 

11.18 

1836.0 

1837.2 



11.26 

2456.6 

2456.6 

11.26 
2456. 0 
2455. 9 



10.7 

1865.6 

1870.5 

10.7 

1864.3 
1888.0 

11.5 

1817.0 
1820.6 

11.5 

1817.5 

1818.7 

11.0 

1863.6 

1861.3 

11.0 
1866. 0 
1861.0 

11.3 
2444. 2 

2434.6 

11.3 
2446. 1 
2466.4 
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The results show two kinds of disagreements: between 
FORTRAN and PL/tt results and also between the extrapolated 
and computed values of down range travel. 

Both disagreements are due to: 

1. The PL/M program that runs in the Ballistics computer 
to calculate the down range travel of the weapons is 
producing results that differ from its FORTRAN counterpart. 
This fact was not observed before. It so happens that with 
the data used in this implementation the PL/M program was 
not as accurate as it had been in previous tests. 

2. The extrapolation of down range travel uses computed 
values, which in spite of being originated from smoothed 
data, contain roundoff errors. t^hen a third degree 
polynomial is fit to four of these points, the noise present 
disturbs the extrapolation. A second degree polynomial 
through the same four points would probably give better 
results . 

The time the Executive computer took to find the release 
point was on the order of 0.9 seconds, which is somewhat 
long. This time can be reduced by using a faster 
extrapolation technique. 
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VII, CON CLUSI ONS 



1. The hardware system used to demonstrate the tactical 
system is complete and working properly. 

2. A different extrapolation technique is necessary in 
order to produce faster and more accurate results for the 
down range travel. 

3. The Ballistics computer is time critical in this 
system and because of that the Executive computer should not 
hold up the Ballistics computer. 

This thesis was not able to prove that the implemented 
system would meet the requirements of a real tactical 
system. It merely provides a framework with which further 
tests could be exercised. These tests should include 
different methods of extrapolations and all types of 
weapons. In particular, with respect to the extrapolation 
technique, a straight line fit through the last three data 
points seems to be promising both in accuracy and speed of 
computation. 
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APPENDIX A 



THE CONVERSION OF DATA PROGRAM AND OUTPUT 



This appendix shows the program that performed the 
conversion from the encoded values of range, elevation and 
azimuth of aircraft as tracked by radar into decimal 
representation used by the program to test the extrapolation 
routine and also to produce the data for the PL/M program 
which uses a three byte floating point number 
representation. 



Following the program listing, the outputs are shown. 

The floating point number used is composed of three 
bytes, as follows: The two higher order bytes constitute 
the mantissa. The first bit of the mantissa is always one, 
except in the case of the number zero, i.e. the number is a 
normalized binary number. 



The lower order byte represents 
following manner: The first bit is the ra 

If the number is negative, this bit is 
bits represent the exponent of two. This 
by hexadecimal forty, i.e. from this 
exponent is positive and from this number 
is negative. 



the exponent in the 
antissa sign bit. 
one. The following 
exponent is biased 
number and up, the 
down, the exponent 
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To make it clearer, some examples are given: 



PL/M floating point number 


decimal value 


El 00 49 


450.0 


AO 00 C4 


-35.0 


80 00 3F 


0.25 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



7 



60 

9 

I 

10 



70 



7 I 
72 



4 



C 

C 

C 






« PROGRAM TO PRODUCE A CARD DECK FOR THE DATA - 

« CORRESPONDING TO AIRCRAFT PO S I T I ON , S ? EE D AND « 

=«= DIVE ANGLE FOR EACH RUN. 

* EACH RUN WILL HAVE 80 CARDS AND THE CAROS WILL * 

’i' CONTAIN 16 TWO-HEXADcC IMAL-CHARACTER S BYTESt ^ 

* REPRESENTING: TIME, SPEED, DIVE ANGLE, * 

« ALTITUDE AND DISTANCE TO TARGET. * 

« THE FIRST FOUR RUNS WERE OBTAINED FROM REAL * 

* DATA AND THE LAST TWO RUNS HAVE BEEN 4= 

* GENERATED TO REPRESENT IDEAL CASES. * 



f. ^ 



L W— .A. .A. O- V.* ^Xr iJU wL* .»w .A. .A. .JU »A. -%A. -xA* .A^ 

I' ■or *%'• Tr "o 't'* ■T* 'r •h' v* or 'r or 'V* '■r *>* o*"r or "r O'* o* o'* o* o' o* ^ 'i* or- O' o* o* 



CCMM0N/TA0/T,X 

CCNMCN/ACT/VKTS , ALT, DEG, YT, IDNO 

CCMMON/ALL/ I AR R I ( 1 6 ) , I ARRE ( 8 I , I ARRF ( 1 6 ) , K I , I NC 
COMMON/ MAKH/ I ZERO, I TWO, ITHP EE, IFOUR, IFI VE , I SIX, I SEVEN 
1 lEIGHT, ININF, ITEN, lELEVN, ITWELV, ITHIRT, I FOURT, IFIFT, 
lICNE 

CCMMON/MASH/ IHA(26) 

CCMMON/MASD/SALT , SXAT.FALT , FXAT 

COMMON/ MAORT/ ALTSiM(40), XATSM(40), TIMEI40), 

1 ALA(^^O), XAT(40),DRT(40) 

DIMENSION VELCCI 40) ,DIVE(40) 

DIMENSION IELI40), IAZI40), IRAM(40), ITIME(40), 

1 ELEV(40), AZ(40), RAN (40) 



FCFMATI A1 ) 

READ! 5, 7) IZERO 
REA0(5, 7) ICNE 
READ! 5, 7 ) I TWO 
READ! 5, 7) I THREE 
READ! 5, 7) IFOUR 
READI5, 7i IFIVE 
READ! 5, 7) I SIX 
RE ADI 5, 7) I SEVEN 
READ(5,7) lElGHT 
READ! 5, 7) ININE 
READI 5, 7) I TEN 
READI5, 7) lELEVN 
READ! 5, 7) ITWELV 
READ! 5,7) ITHIRT 
READ! 5, 7 ) IFOURT 
READ! ‘3, 7) IFIFT 



DC 101 IRUN=1,4 
WRITE (6, 9) 

WPITEI6 ,60) 
FORMAT! /////) 
FCRMATI * 1' ) 
WR1TE(6,1) IRON 
FORMAT (1 IX,' RUN 
WPITE(6,10) 
FORMAT! /) 

IF ! ! IPUN .EQ. 3 ) 
WRITE(6 ,70) 
FORMAT! 12X, 'INPUT 



I 1 



) 



.OR. !IRUN .EQ. 4)) GO TO 41 
DATA: CODED OCTAL DIGITS', 6X, 



I'CCNVSRSION TO DECIMAL:') 

WRITE!6,71 > 

FORMAT! 12X, ' ELEVATION' ,3X, ' AZIMUTH' ,6 X, ' RANGE' ,6X, 
1 • ELEVAT ION* , IX, • AZIMUTH' , IX, 'RANGE' ) 

WFITEI6 ,72) 

FCPMAT! 48X, ' D EGR E E S ' , 3X , ' DEGREES ' , IX, 'YARDS ' ) 
WFITE16, 10) 

DC 19 1=1,40 

READ!5,4> IEL!I), lAZII), IRANII) 

FCPMAT! 3 110) 

I T!MF( I )=KTJME( 1 ) 

T IME! I ) =FL0AT! I T I M E ! I ) ) / 1 0 . 

TFE TIME IS A FUNCTION OF THE NUMBER OF CFDER OF 
THE CARD, IT GOES FROM 0 TO 9 IN I SEC. INCREMENTS 
AND FRO!) 9.3 TO 12.4 IN 0.1 SEC. INCREMENTS. 

ELEV! I) =CTDO! lEL! I ),1) 



f 
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/iZ(I)=CTDO( IAZ< I ),1) 

RAf\( I ) =CTDu( IRA^I( I ) ,0) 

THE CONVERSION FROM THE CODED DATA INTO DECIMAL REAL 
KUNBER IS ACCOMPLISHED. 

RELEV=ELEV( I ) /57. 296 
RNM=RAN( I )/2000. 

ALA(n= RN?1 ’f‘SIN(RELEV)=^6080. 

XAT( I )=TRANS( RNM , E LEV ( I ) , AZ { I ) ) =:O000 . - 75 0. 

C WE MOW HAVE THE ALTITUDE AND DISTANCE TO TARGET. 

WRITE(6, 75JIEL( I ) , I AZ ( I ) t I R AN ( I ) ,ELEV{ I) , AZ (I ) ,RAN( I ) 

7 5 FCRKATI 7X, IIO,3X , I 10, 1X,I10,7X,F4.1,6X,P5.1,3X,F6.1) 
19 CONTINUE 

CALL SMOOTH 
VELOC( i )=0.0 
D IVE( 1 )=0.0 
DC 50 L=2, 10 
J = L-1 

SALT=ALTSM(J ) 

SXAT=XATSM(J) 

FALT=ALTSfML ) 

FXAT=XATSM( L) 

CALL SPADA 
DIVE(L) =OEG 
50 VELOCI L ) =VKTS 
SALT=ALTSM( 10) 

SXAT=XATSM( 10) 

FALT=ALTSM( i 1 ) 

FXAT=XATSM(11) 

CALL SPADA 
DIVE! 1 1 ) =D£G 
VELOCI 11) =VKTS*2 . 

DC 55 L=12,40 
J=L-1 

SALT=ALTSMIJ ) 

SXAT--XATSMIJ ) 

FALT=ALTSM(L ) 

FXAT=XATSM( L ) 

CALL SPADA 
DIVE! L) =--OFG 
55 VELCC(L)=VKTS*10. 

WRITE! 6 ,<5) 

WRITE(6,60) 

GC TO 64 

41 DO 42 I =1 ,40 

READ(5,43)TIPE( I ) ,VELOCm ,DIVE( I) ,ALTSM( I ) ,XATSM( I) 
43 FORMAT! F4. i,2F5. I ,2F6.2) 

42 CONTINUE 

64 WPITE!6,77) 

77 FORMAT! 12X, * SMOOTHED DATA FOR THE PL/M PROGRAM.') 
WRITE!6,10) 

WRITE !6 ,80) 

80 FORMAT! 12X,' TIME SPEED DIVE ANG ALT. DIST TO', 

1 • TARGET' ) 

WRITEI6 ,81 ) 

81 F0RMAf!12X,'SEC. KNOTS DEGREES FEET YARDS ') 

WRITE! 6 , 10) 

DO 99 I =1 ,40 

WRITE(6,82)TI,ME( I ) ,VELOC! I) ,OIVE! I) ,ALTSM! I ) ,XATSM! I ) 

8 2 FORMAT! 12X ,F4.1 , 2X, F5 . 1 , 2X , F 5 , 1 , 5X , F6 . 1 , 2X , F6 . 1 ) 

WRITF!7.83)TIME! I ) ,VELCC! I) ,DIVE! I) ,ALTSM! I ),XATSMI I ) 
83 FORMAT! F4 . 1 , F5 . I , F 5 . 1 , F6 . I , F6 . 1 ) 

99 CONTINUE 
WRITE!6,9) 

WRITE!6,60> 

WRITE!6,88? 

83 FORMAT! 1 2X. 'PL/M FLOATING POINT NUMBERS:') 

WRITF!6,10) 

WRITE! 6,90) 

90 FORMAT! 12X, ' TIME SPEED DIVE ANG ALTITUDE ' 

1 , 'CIST TO TARGET* ) 

WRITE! 6 ,91 ) 

91 FCRMAT(12X,' SEC. KNOTS DEGREES FEET * 
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nonoooo 



c 



c 



1, 'YARDS •) 

WRITE(6, 10) 

DC 22 1=1,40 
IT=lTlMe( I ) 

CALL STIHA(IT) 

V1=VELCC( I ) 

CALL CTHO(VI) 

CALL CTHT 
1 W = 2 

CALL SIHAdW) 

D1V=D1VE( 1 ) 

IF (DIV.LT.O.) 01V=-D1V 
CALL CTHOlDiV) 

CALL CTFT 

IF (DIVEl 1 ) .LT.O. ) 1ARRE(1)=1 
IW=8 

CALL SIHAdW) 

AI = ALTSM,( 1 ) 

CALL CTHO(AI) 

CALL CTHT 
1W = 14 

CALL S IHA( IW) 

X1=XATSM( I ) 

CALL CTHQ(XI) 

CALL CTHT 
IW=20 

CALL SIHA( IW ) 

NCW WE'RE ready TO PRINT THE PL/M FL. POINT NUMBERS. 
WRITE(6,92H IHA{ J) , J=l,26» 

92 FCRHAT( 12X,Al,Al,4X,AI,Al,lX,Al,Al,lX,Al,Al,2X,Al,Ai, 
11X,A1,A1, 1X,A1,A1,2X, A1,A1. , 1X,A1,AI, IX,A1,A1,2X, 
2A1,A1, LX,A1,A1, 1X,AI,A1) 

PUNCH 2 CAROS WITH THE PROPER FORMAT FOR THE PL/M PGM 
W P I T E ( 7 , 8 ) d HA ( K ) , K= 1 , 1 2 ) 

8 FCRMATd2X,'0' , A 1 , A 1 , • H , ‘ * 0 ' , A 1 , A 1 , • H, ' , ' 0 ' , A1 , A 1 , 

1 'H,','0',A1,A1,'H,','0',A1,A1,'H,',*0',A1,A1,'H,») 

WRIT£{7,97 )( IHA( :<) ,K=13,26) 

97 FCRMAT(12X,*0',Al,Ai,‘H,*,'0',Al,Al,'H, ','0‘,Ai,Al, 

1 'Ht't'O'tAltAlt'Hi'j'OSAdAd'Ht'f'O* ,A1,A1,'H,', 

2 'O' ,A1 , Al, ' H, ' ) 

22 CCNTINUF 

101 CONTINUE 
WRITE (6, 9) 

STCP 

END 

SUBROUTINE SMOOTH 



3|' sjt :?! ^ 



jjc 3^c :;t 5;c %•< 



8 



9 



10 



1 1 



=!= THIS SUBROUTINE PRODUCES SMOOTHED DATA FROM 

* THE ORIGINAL DATA, BY MEANS OF A LE A S T* S CU ARE $ * 

* FIT USING ORTHOGONAL POLYNOMIALS. * 

X: * 



3^ :{c y: ^ ;}c ijc ;;c yc i;c 3^2 sj: ^ 3 ;: 5}c ^ ^ ^ 5}c sjt 3 



CCMMON/MAORT/ ALTSM(40), XATSM(40), TIME(40), 
1 ALT(4C), XAT(40) 

DIMENSION C(4) , F(4) 

S0=40.0 
B = 0.0 

DC 8 1=1,40 
B=B+TIME( I ) 

BC=B/SO 

S1=0.0 

DC 9 1=1,40 

Sl=SH-( TIMEd )-B0)^^»:=2 

B=0.0 

DC 10 I =1 ,40 

B=Br( TIME! I ))=<=( TIME! n -BO) *«2 

B1=B/S1 

C1=S1/S0 

S2=0.0 

DO 11 1=1,40 

S2=S2+( (TIME! I) -ai )«( TIMEd ) -BO ) -C 1 ) •i=*2 



56 



oooooo 



c 

c 

c 

c 

c 

c 



B = 0.0 

DO 111 1 = 1,40 

111 B=B+T 1 ME( I )-U TIME( I )-Bl) =^(T 1 ME( 1 )-B 01 -C 1)««2 
B 2 =e/S 2 

C 2 =S 2 /S 1 

S3=0.0 

DC 112 1 = 1,40 

112 S 3 = S 3 +((TIME(I)-B 2 )*UTIME( I)-B 1 )=«={T!ME{ I)-eO)-Cl)- 
1 C 2 *(TIME( I )-80J 

D = G.O 
E = 0.0 

00 12 1 = 1,40 
0 = D + ALT( I 1 

12 E=E+XAT(I) 

C( 11 = D/S 0 
F (1 ) = E/S 0 
D = 0.0 

E = C.O 

DC 13 1 ^ 1,40 

D= 04 -( ALT(I ) )*(TIME( I )-B 0 ) 

13 E = E+(XAT(I ))*(TIME(n-B 0 ) 

C( 2 )=D/S 1 

E( 2 ) = E/S 1 
D= 0,0 
E = C.O 

DC 14 1 = 1,40 

0 = C + ( { ALT( n }=)^{ { TIiMEU )-Bl ) ’^•(T IME( I I -BO) -Cl ) ) 

14 E = E<-( (XAT(I) )*( (TIME! I)-B 1 )*(TIME(I )-BO}-Cl) ) 
C( 3 )= 0 /S 2 

F( 3 )=E/S 2 
D = C.O 



E = 0.0 

DC 141 1=1,40 

D=D-M ALT( I ) ) 4( ( TIHE( II -32J ={= ( (TI ME( n~Bi ) ^( T I?1E( ! ) 
l-EC)-Ci >-C2''MTIME{ I )-BOn 

141 E = E<-( aAT( 1 ) ) v( t T1 ME( I )-B2 )=!= { ( T 1 M E ( I ) - 3 1 ) =S= t T IM E i I ) 
l-RC)-Ci)-C2=^••(TI;'1E{ I )-80) ) 

C(4)=D/S3 
F(4)=e/S3 
DC 15 1=1,40 

ALTSM( n=C( 1 )+C( 2 )«{ TIME! n -BO) *C(?)*( ( TIME ( I }-3n=!' 

1 (TIME! I )-BO)-Cl ) +-C{4 )«( ( TIME( I )-B2)«UT IME( I l-Bl ) 

2 «(TIME(n-BO)-Cl )-C2*(TIME< n-30) ) 

15 XATSM( I )=F( 1 ) <-F( 2 )*(T IME( I ) -BO ) + F ( ? ) 'M ( T I ME ( I ) - B 1 ) * 

1 (TIME! I )-BOi-Cl ) + F(4 )’M ( TIME( I )-B2)'-( ( TiME( n-8i) 

2 >MTIME( I )-BO)-Cl )-C2*{TIM6( I )-80) > 

RETURN 

END 

FUNCTION KT1ME( I ) 



^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

Jffs 



i> ^ 

« ^1% >1% >1^ -► 



* THIS FUNCTION GENERATES THE TIME ACCORDING 

* TO THE CARD POSITION. 

5}c 3*^ ^ ^ ijc 5jc >{5 ^ ?;? :^c ^ :rj: :Jc 3^ sjo.’c 5;c :fc 5)c 3^c jjc :(c jJ: :{c 5 !c 5|« 5}; 5f: 3{« :{c 

IF ( I .LE.IO) GO TO 1 
KTIME = ( I-ll)^•95 
GC TO 2 

1 KTIME=( I-l )=<^10 

2 RETURN 
END 

FUNCTION CTDO(KK,N) 

:{c * sj: jjt * j|; « 

# THIS FUNCTION CONVERTS FROM THE COOED OCTAL 

» NUMBER TO DECIMAL NUMBER. - 

❖ * 



K = KK 
I ACUM=0 
DC 1 1=1,6 
J=K/( 10*«( 6- I ) ) 
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oo ooo oo ooooooooooo oooooo 



L=J*( 3*«(6-I ) ) 

I ACUM= lACUM+L 
K = K~ J 1 0* i 6~ I ) 

N=0 MEANS RANGE, N=l, MEANS ELEV OR AZIMUTH. 

IF (N.EG.n CFAC=360./65535. 

IF (N.EQ.U GO TO 2 
CFAC=2. 

CT00=I ACU.M=^CFAC 

RETURN 

END 

FUNCTION COMP(X, J) 

^ y*' y? Vf y ^ Vf 

^|S ■««% ^1^ >1^ >1^ >1% >f% ^1% ^1% ^1% ^1 

yu 

* THIS FUNCTION PRODUCES THE lARRF ARRAY WHEN 

* CALLED BY THE CTHO SUBROUTINE. 

^ yu ^ y^ yf Of y- -Jf ^ ^ y- v- «.o yr y- y^ y^ y^ y^ ju V/ y^ y» y< y^ yu y^ y 

^|*k ^x ^ 



•'C 

* 

❖ 

* 



::{t Jli: 



CGMMON/ALL/ lARR I ( 1 6 J , I ARRE ( 8 ) , I ARRF ( 1 6 ) , K I , I NC 

X=X-1. 

I ARRF( J)=l 
CCMP=X 
RETURN 
END 

SUBROUTINE CTHO(X) 



❖ 



¥ 



THIS SUBROUTINE BUILDS THE lARRI ARRAY AND, BY 
CALLING THE FUNCTION COMP, THE lARR^ ARRAY. 
BOTH ARRAYS HAVE 16 ELEMENTS AND REPRESENT 
TWO 8 BITS WORDS. 

THE ARRAY lARRI WILL FINALLY HCLD THE FOUR 
HEXADECI.MAL CHARACTERS FOR THE MANTISSA OF 
THE PL/M FLOATING POINT NUMBER. 



* 



* 



yu y> yu ^ y< y^ yu y^ y^ y« yu ^ y- y# yu yu y<» y> yu yu y^ y-* y^ y^ yu yu y ^ yu y^ y^ y<» yu y^ y^ y^ y^ y*- ^ y^ yu 

^ ^ ^1% ^1% ^4% >1% ^1% ^1% ^1-1. -pjx -ys 

CCMMGN/ALL/ I ARR I ( 1 6 ) , I ARRE ( 8 ) , 1 ARR F ( 1 6 ) , X I , I NC 

IFIN=INT(X) 

PFN=X-I PIN 
K 1 = 0 
INC=0 

INC IS THE NUMBER OF LEADING ZEROES OF THE FRACTION. 
IT WILL BE USEFUL IF THE NUMBER IS LESS THAN 1. 

DC 2 1=1,16 

I ARRi ( n=o 

I ARPF( I )=0 
IF (IPIN .NE, 

IF (PFN.EQ.O.) GO TO 9 
IF (PFM .LT. .5) INC=1 
IF {PFN .LT. .25) 



0) GO TO 7 



INC = 2 

IF (PFN .LT. .125) INC=3 
IF ( INC.EQ.O) GO TO 3 
DO 8 I = I , I NC 
e PFK=PFN-2. 

GO TO 3 

7 DC 1 IJ=1,16 
KI = IJ 
JFIN=IPIN 
IPIN=IP IN/2 

IF (MODI JPIN,2).EQ.l) IARRI(IJ)=1 
IF < IPIN. EC. 0) GO TO 3 
1 CCNTINUE 

16-KI IS THE NUMBER OF PLACES THAT THE ARRAY lARRI 
HAS TO BE SHIFTED. 

THE VALUE OF THE EXPONENT IS KI. 

3 00 4 J=l, 16 
KJ = J 

PFN = PEN*2 . 

4 IFIPFN.GT. 1. ) PFN = C0MF( PFN,KJ) ^ . 

SHIFT RIGHT. THE ORIGIN OF THE HEXADECIMAL NUMBER WILL 
BE THE FIGHT SIDE. 

DC 5 1=1, KI 

5 I ARRI ( 17- I )= lARR I (KI + l-I ) 
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6 

9 

2 

1 

4 

8 

5 

6 

7 

3 

1 

7 

2 

8 



KK=16-KI 

CCMPLETE THE 16 BITS USING THE FRACTIONAL PART. 
DC 6 1=1, KK 

lARRI { 17-KI-I )=I ARRF( I ) 

RETURN 

KI=100 

RETURN 

END 

SLEKOUTINE CTHT 









THIS SUBROUTINE FILLS IN THE BITS IN THE 
ARRAY lARRE, CORRESPONDING TO THE EXPONENT 
OF THE PL/M FLOATING POINT NUMBER. 



.X gu V. gu 

"r "r ^ ^ 



.A. a. oU ' 



:js S 



>;c :ic 3^i jf; 



CCMMON/ALL/ ! ARR I { 1 6 ) , I ARRE ( 8 ) , I ARR F ( 1 6 ) , K I , I NC 

IAFRE( 1 )=0 

IARRE(2;=1 

IF (INC .NE. 0 ) GO TO 4 
DC 2 1=3,8 
I ARRE( I )=0 

IF (Ki oEQ. 100) GO TO 3 
DC 1 IN=1,6 
KK = KI 
KI=KI/2 

IF( MOD( KK, 2 ) .E Q. 1 ) I ARRE ( 9- I N ) = 1 

IF (KI . EQ.O) GO TO 3 

CONTINUE 

GO TO 3 

IARRE(2 )=0 

DC 6 1=3,8 

I ARRE( I )=1 

GO TO (5,6,7), INC 

GC TO 3 

I ARRE( 8)=0 

GC TO 3 

I ARRE(7 )=0 

RETURN 

END 

FUNCTION TRANS(R,E,A) 

5}c ^ 3jr y,: 5jc j{c 3^ ^5? ^ 5{c ;ic ijs j;c 5jc 5;? A 3jc s’.c 5|s 5^ :fc 2[c 3|c 3jc :f; ^ sj: 3{c i't. j)c ?;« 






THIS FUNCTION TRANSFORMS EL E VATI ON , A Z I MUTH 
AND RANGE INTO DISTANCE TO TARGET. 






ALF=(A-180.) /57.296 
S=SIN( 1 .5708-ALF) 

C= SI N( 72.20528/57.290) 

D=465./(6080.=i'C0S( ALF) ) 

EL=E/57.296 

TRANS=( R«COS(EL) -D)*S/C 

RETURN 

END 

FUNCTION IHEX(IY) 

:Jc5ic5}t3;c3;c 5ls S^tslr 2}{ ;;s 3l< 3,*? 5!c 5j£ ;»= ?;« >}; 3}« 3j< sjc :{c 3|c sit sjc :(c sjs 5^ >;< 3^ :{t >Ji s?ts;t3}c3^:^X^55cy,;3lC5|ty« 



* THIS FUNCTION TAKES FOUR ELEMENTS AT A TIME 
’i' FROM lARRI AND lARRE TO COMPUTE THE DECIMAL 
« VALUE OF THE CHARACTER. 

5{: 

3^^ * 5 ;::}: 5|t^ :(s^ 4; jJ: ^ :{;5f: ft :{c >;<:{; t;: :?t ^ ^ jJiJit 3i::!::ss5j: s[: 

COMMON/ALL/ I ARR I ( 16 ) , I ARRE ( 8 ) , I ARRF ( 1 6 ) , K I , I NC 

DIMENSION IAUX(4) 

GC T0( 1 ,2,3,4,5, 6) , l Y 

DC 7 J=l,4 

IAUX( J)=IARRI(17-J) 

GO TO 13 

DO 8 J=l,4 

IAUX(.j) = IARRI(13-J) 

GO TO 13 
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* ^ -M- rr ^ -it- -jf 



3 

9 

4 

10 

5 

11 

6 

12 

13 

14 



C 

C 

C 

C 

C 

C 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 
17 



C 

C 

c 

c 

c 

c 

c 



DC 9 J=lt4 

IAUX( J)=IARRI(9-J) 

GC TO 13 

DQ 10 J=l,4 

IAUX( J) =IARRI (5-J) 

GC TO 13 
DO 11 J=l,4 
IAUX( J) =IARRE( J) 

GC TO 13 

DC 12 J=l,4 

IAUX( J) =I ARRE ( J+4) 

I ACUM = 0 
DO 14 J=l,4 

IF( IAUX( J ) .EQ.l ) I ACUM = IACUM+-2=!=*(4-J) 

IHEX=IACUM 

RETURN 

END 

r-URCTICN KHEX(IZ) 

^ ^ ;{r ijc ^ 5^ ^ ;|s :J: 5*c 3{«: ?}c 5^ ^ ^ 3^: 



if. if if 5^; if if if 



* THIS function returns THE PROPER HEXADECIMAL =<'- 
« CHARACTER CORRESPONDING TO THE DECIMAL VALUE . * 

if if 



CGMMCN/HAKH/ IZERO rlJfiC , I THREE , IF CUR, I FI V E , I S I X , I S EVEN, 
1 1 EIGHT, IN INE , ITEN, lELEVN, ITWELV , I THIRT, I FCURT , IFI FT, 

1 ICKE 
KU=I Z4-1 

GC TO ( 1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,16), KU 
KFEX=lZERO 
GG TO 17 
KFEX=IONE 
GC TO 17 
KFEX= ITWO 
GC TO 17 
KFEX=ITHREE 
GC TO 17 
KFEX=IFCUR 
GO TO 17 
KFEX=IF I VE 
GO TO 17 
KFEX=ISIX 
GC TO 17 
KFEX=I SEVEN 
GC TO 17 
KFEX=IEIGHT 
GC TO 17 
KHEX=ININE 
GC TO 17 
KFEX=ITEN 
GC TO 17 
KFEX=I£LEVN 
GG TO 17 
KFEX= ITWELV 
GG TO 17 
KhEX= ITHIRT 
GO TO 17 
KFEX=IF'CURT 
GO TO 17 
•KHEX=IF IFT 
RETURN 
END 

SLBROUT INE STIHA ( I ) 



« THIS SUBROUTINE FILLS THE PROPER ELEMENTS CF 

* THE ARRAY IHA WITH THE HEXADECIMAL CHARACTERS 
« THAT STANDS FOR TIME. 

❖ 

s;c 3{s 5^ 3,'r 5!; 3^ :{c :<r :Ci 3^ 3^ 5|t 5js * 3)C ;;s ^ y/ >;o:c jjL Jjc 3!: J,'? j;t ^ =:c 2j= ❖ 5:c 5^ :!c 



CCMMDN/HASH/ IHA(2o) 
ISEC=MOC( 1,16) 



5^ 

if if 
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■> ^ -Jf 



c 

c 

c 

0 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



KM = I/16 

IHA( 1 )=KHEX( KMT) 

IHA( 2J =KH£X( ISEC ) 

RETURN 

END 

SLBROUTINE SIHA(JOTA) 

*;{! s,-; sj; ^ 5.': ^ * :(c 5)! 



^ 5 jC 

»!= THIS SUBROUTINE FILLS THE IHA ARRAY WITH THE 

* CHARACTERS FOR SPEED, DIVE ANGLE, ALTITUDE 

* AND DISTANCE TO TARGET. 

* 



^ 3^ y; ^ 3!t j;: y? * 5|t * sV ^ yt y; * y: ys 5 



;y:y: sj, ysy, *yi ;!cyc:^t:;c3]c * >}:3(s5'c55r5;:y:5;:^ 3^ yc ^ 



CCriKON/MASH/ IHA (26) 

J=2 MEANS SPEED, J=8 MEANS DIVE ANG,J=14 MEANS ALTITUDE 
AND J = ?.0 MEANS DISTANCE TO TARGET. 

DO 1 1=1,6 
IHV=IHEX( I ) 

KHX=KhEX( IHV ) 

IHA( H-JQTA)=KHX 

RETURN 

END 

SUERCUTINE SPADA 



^ »r 'r 'r 'c -f» *%' ^1* •" 



\, ji, -X, •'» V- -.V v- -Jf 

'*•>'* ^ * * *,« .Y* V 'O ■'I* '>» 



❖ 

THIS SUBROUTINE COMPUTES SPEED AND DIVE ANGLE. =!■' 

^ 3jr :{x ^ >Jc 5;c 55« y,: :Jc >J: 3*^ sjc jjt ^ 5;: :5c 3|c :;s ;ic 



CCMMON/MASD/SALT, SXAT , FALT , FX A T 
CCMMON/ACT/VKTS, ALT,DEG,YT, IDNO 
SF=SALT-FALT 
CALT=ABS(SF)/6080. 

DXAT=( SXAT-FXAT) /2000. 

D P AN = S 0 R T ( D ALT’!^ D AL T +DX A T«DX A T ) 
VKTS=DRAN«3600. 

C AX=DALT/DXAT 

DEG=ATAN(DAX) *57. 296 

IF ( SALT. GT. FALT ) D£G=-DEG 

RETURN 

END 
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^ -if rc 



RUN 1 



INPUT DATA; 


CODED OCTAL 


DIGITS 


CONVERSION TO DECIMAL: 


ELEVATION ' 


AZIMUTH 


RANGE 


ELEVATION 


AZIMUTH 


RANGE 








DEGREES 


DEGREES 


YARDS 


11401 


104206 


5305 


26. 7 


192.0 


5514. 


11342 


104374 


5137 


26.6 


192.6 


5310. 


11264 


104574 


4771 


26.3 


193.3 


5106. 


112C7 


105013 


4611 


26. 1 


194. 1 


488 2. 


11131 


105254 


4440 


25.8 


195.0 


46 72. 


11046 


105534 


4261 


25. 5 


196.0 


4450. 


10762 


106040 


4104 


25. 2 


197. 1 


4232. 


10674 


106374 


3722 


24.9 


198.3 


4004. 


10604 


106772 


3540 


24. 6 


199.7 


3776. 


10510 


107435 


3356 


24.3 


201. 3 


3548. 


10444 


107677 


3266 


24. 1 


202. 1 


343 6. 


10434 


107740 


3253 


24. 1 


202.3 


3414. 


10424 


110002 


3241 


24.0 


202.5 


3394. 


10415 


110046 


3227 


24.0 


202. 7 


33 74. 


10404 


110111 


3213 


23.9 


202.9 


3250. 


10374 


110156 


3202 


23.9 


203.1 


3332. 


10365 


110221 


3166 


23.8 


203. 3 


3308. 


10356 


110270 


3151 


23.8 


203.5 


3282. 


10347 


110340 


3140 


23.8 


203. 7 


3 264. 


10337 


110411 


3123 


23.7 


204.0 


3238. 


10324 


110461 


3110 


23. 7 


204. 2 


3216. 


10311 


110525 


3074 


23.6 


204.4 


3192. 


10276 


110572 


3060 


23.5 


204.6 


2168. 


10264 


110636 


3044 


23.5 


204. S 


3144. 


10252 


110705 


3033 


23.4 


205.0 


3126. 


10240 


11C756 


3015 


23.4 


205.2 


3098. 


10225 


111027 


3002 


23.3 


205.4 


3076. 


10212 


111100 


2766 


23.3 


205.7 


3052. 


10177 


111153 


2754 


23. 2 


205.9 


3032. 


10165 


111226 


2742 


23.1 


206. 1 


3012. 


10151 


111302 


2727 


23.1 


206.4 


299C. 


10136 


111360 


2714 


23.0 


206.6 


2968. 


10123 


111436 


2703 


23.0 


206.9 


2950. 


10111 


111515 


2663 


22.9 


207. 1 


2918. 


10C77 


111574 


2650 


22.8 


207.4 


269 6 . 


10066 


111656 


2640 


22.8 


207.7 


2880. 


10053 


111734 


2624 


22. 7 


207.9 


2856. 


10037 


11 2013 


2611 


22.7 


208. 2 


2834. 


1C023 


112C76 


2574 


22.6 


208.5 


2808. 


10006 


112161 


2 563 


22.5 


208. 7 


2790. 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

c 

0 

0 

G 

0 

0 

0 

0 

o 

0 

3 

1 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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SMOOTHED DATA FOR THE PL/M PROGRAM 



TIME 


SPEED 


SEC. 


KNGTS 


0.0 


0.0 


1.0 


39 8.0 


2.0 


406.8 


3.0 


415.2 


4.0 


423.4 


5.0 


431. 1 


6.0 


438.5 


7.0 


445.5 


8.0 


452.1 


9.0 


458.4 


9.5 


46 2.8 


9.6 


464.5 


9.7 


465.1 


9.8 


465.6 


9.9 


466.2 


10.0 


466.7 


10.1 


467.3 


10.2 


467.8 


10.3 


468.3 


10.4 


468.9 


10.5 


469.4 


10.6 


469.9 


10.7 


470.4 


10.8 


471. C 


10.9 


471.5 


11.0 


472,0 


11 .1 


472.5 


11.2 


473. C 


11.3 


473.5 


11.4 


474.0 


11.5 


474.5 


11.6 


474.9 


11.7 


475.4 


11.8 


475.9 


11.9 


476.4 


12.0 


476.9 


12.1 


477.3 


12.2 


477.8 


12.3 


478.2 


12.4 


478. 7 



DIVE ANG ALT. 
DEGREES FEET 



7549.4 
7 20 7.3 

6865.5 

6522.3 

6170.3 

5333.3 

5467.4 

5140.5 

4792.5 

4443.4 

4268 .4 

4233.4 

4198.4 

4163.3 

4128.3 

4093.2 

4058. 1 

4023.0 

3987.9 

3952.8 
391 7. 6 

3882.5 

3847.3 

3812.1 

3776.9 
3 741,7 

3706.5 

3671.3 

3636.1 

3600.8 

3565.5 
3530. 

3495.0 

3459.7 

3424.3 

3389.0 

3353. 7 

3318.3 

3282.9 

3247.6 



DIST TO TARGET 
YARDS 



4148.9 

3953.5 
3 762.6 

3561.4 

3355.3 

3144.3 

2928.9 

2709 . 3 

2485.8 
2253. 5 

2143.5 

2120.4 

2097.3 

2074.2 

2051 . 0 

2027.8 

2004.5 

1931.2 

1957.9 

1934.6 

1911.2 

1887.8 

1364. 3 

1840.9 
181 7.4 

1793.9 

1770.3 

1746.7 

1723.1 

1699.5 

1675.8 

1652.1 

1628.4 

1604.6 

1 530. 3 
1557.0 

1533.2 

1509.3 

1485.5 

1461.5 



0.0 
-30.5 
-29.9 
-29.3 
-28.8 
-28.3 
-27.3 
-27.5 
-27.1 
-26.8 
-26.6 
-26.5 
-26.5 
-26.5 
-26.4 
-26.4 
-26.4 
-26.4 
-26.4 
-26.3 
-26.3 
-26.3 
-26.3 
-26.2 
-26.2 
-26.2 
-26.2 
-26.2 
-26.1 
-26.1 
-26. 1 
-26.1 
-26.1 
-26. 1 
-26.0 
-26.0 
-26.0 
-26.0 
-26.0 
-26.0 
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PL/M FLOATING POINT NUMBERS: 



TIME 


SPEED 




DIVE , 


ANG 


ALTITUDE 


01 ST ■ 


TO TARGET 


SEC. 


KNOTS 




DEGREES 


FEET 




YARDS 




00 


00 


00 


40 


00 


CO 


40 


EB 


EB 


40 


81 


A7 


40 


OA 


C6 


FA 


49 


F4 


62 


C5 


£1 


3E 


40 


F7 


68 


4C 


14 


CB 


62 


49 


EF 


21 


C5 


06 


8B 


40 


EB 


29 


4C 


IE 


CF 


9E 


49 


EA 


62 


C5 


CB 


02 


40 


DE 


97 


4C 


23 


03 


AC 


49 


E6 


18 


C5 


Cl 


1 1 


40 


01 


B4 


4C 


32 


D7 


80 


49 


E2 


3C 


C5 


B6 


4A 


40 


C4 


85 


4C 


3C 


08 


3E 


49 


DE 


C4 


C5 


AB 


7B 


40 


B7 


OF 


4C 


46 


DE 


BE 


49 


OB 


A3 


C5 


AO 


A3 


40 


A9 


55 


4C 


50 


E2 


OE 


49 


D8 


E4 


C5 


95 


C4 


40 


9B 


5C 


4C 


5A 


E5 


2C 


49 


06 


70 


C5 


8A 


OB 


40 


80 


27 


4C 


5F 


E7 


63 


49 


D4 


C8 


C5 


65 


63 


40 


85 


F8 


4C 


60 


E8 


30 


49 


D4 


29 


C5 


64 


43 


40 


84 


87 


4C 


61 


E8 


38 


49 


D4 


00 


C 5 


83 


32 


40 


83 


15 


4C 


62 


E8 


CD 


49 


D3 


C4 


C5 


32 


lA 


40 


81 


A2 


4C 


63 


E9 


15 


49 


03 


97 


C5 


81 


02 


40 


80 


2F 


4C 


64 


E9 


59 


49 


D3 


61 


C5 


FF 


02 


4C 


FD 


78 


43 


65 


E9 


AO 


49 


03 


36 


C5 


FO 


A1 


4C 


FA 


90 


4B 


66 


E9 


E5 


49 


03 


07 


C5 


FB 


6F 


4C 


F7 


A7 


4B 


67 


EA 


2B 


49 


02 


08 


C5 


F9 


3E 


4C 


F4 


BO 


4B 


68 


EA 


6F 


49 


02 


AA 


C5 


F7 


OC 


4C 


FI 


02 


4B 


69 


EA 


32 


49 


02 


7E 


C5 


F4 


09 


4C 


EE 


E6 


43 


6A 


EA 


F5 


49 


02 


51 


C5 


F2 


A7 


4C 


EB 


F9 


4B 


6B 


E8 


38 


49 


02 


25 


C5 


FO 


74 


4C 


E9 


OB 


43 


6C 


EB 


7A 


49 


01 


FA 


C5 


EE 


4 1 


4C 


E6 


1C 


43 


60 


E8 


3C 


49 


01 


00 


C5 


EC 


OE 


4C 


E3 


2C 


4B 


6E 


EB 


FO 


49 


01 


A5 


C5 


E9 


03 


4C 


EO 


3B 


4B 


6F 


EC 


3D 


49 


01 


70 


C5 


E7 


A8 


4C 


DO 


49 


4B 


70 


EC 


7E 


49 


01 


54 


C5 


F5 


74 


4C 


DA 


57 


46 


71 


EC 


BE 


49 


Dl 


2C 


C5 


E3 


40 


4C 


07 


63 


4B 


72 


EC 


FD 


49 


01 


05 


C5 


El 


OC 


4C 


04 


6E 


43 


73 


EO 


3B 


49 


00 


OF 


C5 


DE 


08 


4C 


01 


79 


43 


74 


ED 


79 


49 


DO 


BA 


C5 


DC 


A4 


4C 


CE 


33 


48 


75 


ED 


B7 


49 


CO 


94 


C5 


DA 


6F 


4C 


CB 


83 


4B 


76 


ED 


F4 


49 


DO 


6F 


C5 


08 


3 A 


4C 


C3 


93 


4B 


77 


EE 


31 


49 


00 


46 


C5 


06 


05 


4C 


C5 


9 A 


43 


78 


EE 


60 


49 


DO 


28 


C5 


03 


DO 


4C 


C2 


A1 


4B 


79 


EE 


A8 


49 


00 


06 


C5 


0) 


9A 


4C 


BF 


A6 


4B 


7A 


EE 


E3 


49 


CF 


54 


C5 


CF 


65 


4C 


BC 


AA 


4B 


7B 


EF 


10 


49 


CF 


C2 


C5 


CD 


2F 


4C 


B9 


AE 


4B 


7C 


EF 


58 


49 


CF 


A1 


C5 


CA 


F9 


4C 


B6 


B1 


4B 
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RUN 2 

INPUT 

ELEVA 

13621 

13543 

13460 

13 365 

13311 

1322 7 

13 140 

13025 

12703 

12555 

12500 

12467 

12456 

12446 

12436 

12426 

12416 

12 403 

12367 

12353 

12341 

12330 

12320 

12310 

12277 

12267 

12256 

12246 

12236 

12225 

12214 

12203 

12172 

12161 

12150 

12141 

12131 

12121 

12111 

12102 



CODEC OCTAL DIGITS CONVERSION TO DECIMAL: 



AZIMUTH 


RANGE 


ELEVATION 

DEGREES 


AZIMUTH 

DEGREES 


RANGE 

YARDS 


103634 


5333 


33. 1 


190. 7 


5558. 0 


103710 


5177 


32.9 


190.9 


5374.0 


104056 


5045 


32.6 


191.5 


5194.0 


104255 


4706 


32.3 


192. 2 


5004.0 


104464 


4540 


32.0 


192.9 


4800.0 


104732 


4377 


31.8 


193.9 


4606.0 


105175 


4227 


31.5 


194.8 


4398.0 


105510 


4060 


31.1 


195.9 


419 2.0 


106051 


3713 


30.6 


197. 1 


3990.0 


106444 


• 3532 


30. 1 


198.5 


3764.0 


106664 


3446 


29. 9 


199.3 


3660. 0 


106722 


3431 


29.8 


199. 4 


5o34.0 


106755 


242 2 


29.8 


199.6 


362C.0 


107011 


3406 


29. 7 


199. 7 


3596. 0 


107C43 


3372 


29.7 


199.9 


3572.0 


1071C1 


3357 


29. 7 


200.0 


3550.0 


107141 


3345 


29.6 


200. 2 


3530.0 


107203 


3326 


29.5 


200.4 


350C. 0 


107243 


3320 


29.5 


200.6 


3488.0 


107301 


3303 


29.4 


200. 3 


3462.0 


107341 


3267 


29.4 


200.9 


3436. 0 


107402 


3256 


29.3 


201. 1 


34 2 0. 0 


107446 


3245 


29.3 


201.3 


340 2. 0 


1C7511 


3231 


29.2 


201. 5 


3378.0 


107555 


3214 


29.2 


201.7 


3352.0 


1C7620 


3202 


29.1 


201.9 


3332. 0 


107663 


3165 


29. 1 


202. 1 


3306.0 


107726 


3160 


29.0 


202. 3 


3296. 0 


107773 


3145 


29.0 


202.5 


3274.0 


110C43 


3123 


28.9 


202. 7 


3238. 0 


110115 


3114 


28.9 


202.9 


3224.0 


110166 


3076 


28.8 


203. 2 


3196.0 


110235 


3062 


28.8 


203.4 


317 2.0 


110305 


3050 


28. 7 


203.6 


3152.0 


110356 


3036 


28. 7 


203.0 


3132.0 


110^31 


3023 


28. 7 


204.0 


3110.0 


11C504 


3010 


28.6 


204.3 


303 3.0 


11 C557 


2777 


28.6 


204. 5 


3070.0 


110634 


2761 


28.5 


204. 8 


3042.0 


110711 


2753 


28.5 


205.0 


3030.0 
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TIME 


SPEED 


DIVE AN 


SEC. 


KNCTS 


DEGREES 


0.0 


0.0 


0,0 


1.0 


343.6 


-37.0 


2.0 


355. 2 


-37.2 


3.0 


366.5 


-3 7.2 


4.0 


377. 5 


-37.1 


5.0 


388.1 


-36.8 


6.0 


398.4 


-36.^ 


7.0 


408. 4 


-35.8 


8.0 


418.1 


-55.1 


9.0 


427.6 


-34.4 


9.5 


434.6 


-33,7 


' 9.6 


43 7 . 4 


-33.5 


9.7 


438.3 


-33.4 


9.8 


439. 2 


-33.3 


9.9 


440. 1 


-33.2 


10.0 


441.C 


-33.1 


10.1 


441.9 


-33.0 


10.2 


442. 8 


-32.9 


10.3 


443 . o 


-3 2.8 


10.4 


444.7 


-32.7 


10.5 


445.6 


-32,6 


10.6 


446.5 


-32.5 


10.7 


447.4 


-32.4 


10.8 


448.3 


-22.3 


10.9 


449.2 


-32.2 


11 .0 


450.1 


-32.0 


11.1 


451.0 


-3 1.9 


11.2 


451.9 


-31.8 


11.3 


452.8 


-3 1.7 


11.4 


453.7 


-31.6 


11. 5 


454.6 


-3 1.5 


11.6 


45 5.5 


-3 1.4 


11.7 


456.4 


-31.3 


11.8 


457.3 


-31.2 


11.9 


458. 2 


-31.1 


12.0 


459.1 


-30.9 


12. 1 


460. C 


-30.8 


12.2 


46 0.9 


-30.7 


12.3 


461.8 


-30.6 


12.4 


462.7 


-30.5 



OIST TO TARGET 
YARDS 



9225.4 3896.0 

3876.3 3743.5 

3513.7 3536.3 

3139.5 3424.1 

7755.3 3256.7 

7362.9 3084.0 

6964.1 2905,8 

6560.6 2721.8 

6154.1 2531.9 

5746.5 2335.8 

5542.7 2235.4 

5502. 0 2215.1 

5461.3 2194.8 

5420.6 2174.4 

5379.9 2153.9 

5339.3 2133.4 

5298.7 2112.8 

5258. 1 2092.1 

5217.5 2071.4 
5177. C 2050.6 

5136.5 2029,8 

5096.0 2003.8 

5055.5 1987.8 

5015.1 1966.8 

4974.7 1945.6 

4934.4 1924.5 

4894.1 1903,2 

4853.6 1881.9 

4813.6 1860.5 

4773.5 1839.0 

4733.3 1817.5 

4693.3 1795.9 

4653.2 1774.2 

4613.3 1752.5 

4573.4 1730.7 

4533.5 1708.8 

4493.7 1686.8 

4453.9 1664.8 

4414.3 1642.7 

4374.6 1620.6 



SMOOTHED DATA FOR THE PL/M PROGRAM. 



ALT. 

FEET 
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PL/M FLOATING POINT NUMBERS: 



TIME 


SPEED 




DI' 


/E i 


ANG 


ALTITUDE 


DI< 


;t 


TO 


SEC. 


KNOTS 




DEGRE 


ES 


FEET 




YARDS 




00 


00 


00 


40 


00 


00 


40 


90 


25 


4E 


F? 


80 


4C 


OA 


A3 


CF 


49 


93 


F2 


C6 


SA 


81 


4E 


E9 


F8 


4C 


14 


81 


9F 


49 


94 


B8 


C6 


35 


06 


4E 


EO 


24 


4C 


IE 


B7 


42 


49 


94 


CA 


Co 


FE 


56 


4D 


06 


01 


4C 


28 


BC 


BB 


49 


94 


33 


C6 


F2 


5A 


40 


C3 


8B 


4C 


32 


C2 


08 


49 


93 


17 


C6 


E6 


17 


40 


CO 


CO 


4C 


3C 


C7 


2E 


49 


91 


69 


C6 


D9 


AO 


4D 


B5 


9C 


4C 


46 


CC 


2E 


49 


8F 


3A 


C6 


CD 


C4 


40 


AA 


1C 


4C 


50 


D1 


OB 


49 


8C 


94 


C6 


CO 


51 


40 


9E 


3 E 


4C 


5A 


05 


CA 


49 


89 


7C 


C6 


B3 


93 


4D 


91 


FC 


4C 


5F 


D9 


49 


49 


36 


E7 


C6 


AO 


35 


4D 


8B 


B6 


4C 


60 


DA 


AD 


49 


85 


DO 


C6 


AB 


EF 


40 


8A 


72 


4C 


61 


DB 


22 


49 


85 


70 


C6 


AA 


AA 


40 


89 


2C 


4C 


62 


D5 


97 


49 


85 


OD 


C6 


A 9 


64 


4D 


87 


E6 


4C 


63 


DC 


DC 


49 


84 


A3 


C6 


A3 


1 F 


40 


66 


9E 


4C 


64 


DC 


82 


49 


84 


49 


C6 


A6 


DA 


4D 


85 


56 


4C 


65 


DC 


F5 


49 


83 


E2 


C6 


A5 


95 


40 


84 


OC 


4C 


66 


DD 


6A 


49 


83 


70 


C6 


A4 


50 


40 


82 


C2 


4C 


67 


DO 


El 


49 


83 


1C 


C6 


A3 


or. 


40 


81 


76 


4C 


63 


OE 


55 


49 


82 


32 


C6 


A1 


C7 


4D 


80 


29 


4C 


69 


DE 


C8 


49 


62 


49 


C6 


AO 


83 


40 


FO 


B3 


4B 


6A 


DF 


3D 


49 


81 


E3 


C6 


9F 


3F 


40 


FB 


lA 


4B 


6B 


DF 


B1 


49 


81 


77 


C6 


9D 


FC 


40 


F8 


7A 


4B 


6C 


EO 


24 


49 


81 


OD 


C6 


9C 


B8 


4D 


F5 


08 


4B 


6D 


EO 


9A 


49 


80 


AO 


C6 


9B 


75 


4D 


F3 


34 


4B 


6E 


El 


08 


49 


80 


2F 


C6 


9A 


33 


40 


FO 


8E 


4B 


6F 


El 


80 


49 


FF 


80 


C5 


98 


FO 


4D 


ED 


E6 


4B 


70 


El 


FI 


49 


FE 


A9 


C5 


97 


AE 


4D 


EB 


3B 


4B 


71 


E2 


68 


49 


FD 


D5 


C5 


96 


6C 


4D 


E8 


3E 


4B 


72 


E2 


09 


49 


FC 


EC 


C5 


95 


2B 


40 


E5 


EO 


4B 


73 


E3 


4C 


49 


FC 


09 


C5 


93 


EA 


40 


E3 


2F 


4B 


74 


E3 


BE 


49 


FB 


yy 


C5 


92 


AA 


40 


60 


7B 


4B 


75 


E4 


33 


49 


FA 


3F 


C5 


91 


69 


40 


DO 


C6 


48 


76 


E4 


A4 


49 


F9 


54 


C5 


90 


2A 


40 


OB 


OE 


4B 


77 


E5 


17 


49 


F8 


68 


C5 


8E 


EA 


40 


08 


54 


4B 


73 


E5 


8A 


49 


F7 


7E 


C5 


8D 


AB 


40 


05 


98 


48 


79 


E5 


FE 


49 


F6 


93 


C5 


8C 


60 


40 


02 


OA 


4B 


7A 


66 


6F 


49 


F5 


9F 


C5 


8B 


2F 


40 


DO 


lA 


43 


7B 


E6 


E3 


49 


F4 


BO 


C5 


89 


F2 


40 


CO 


57 


46 


7C 


E7 


56 


49 


F3 


80 


C5 


88 


35 


40 


CA 


92 


4B 
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RUN 3: 



SMOOTHED DATA FOR THE PL/M PROGRAM. 



TIME 


SPEED 


DIVE ANG 


ALT. 


DIST TO TARGET 


SEC. 


KNOTS 


DEGREES 


FEET 


YARDS 


0.0 


0.0 


0.0 


2000.0 


3699.4 


1.0 


300.0 


0.0 


2000.0 


3532.7 


2.0 


300.0 


0.0 


2000.0 


3:)&6. 0 


3.0 


300.0 


C.O 


2000.0 


3199.4 


4.0 


300.0 


0.0 


2000.0 


3032. 7 


5.0 


300.0 


0.0 


2000.0 


2866.0 


6.0 


300.0 


C.O 


2000.0 


2699.4 


7.0 


300.0 


0.0 


2000.0 


2532.7 


8.0 


300.0 


0.0 


2000.0 


2366.0 


9.0 


300.0 


0.0 


2000.0 


2199.4 


9.5 


300.0 


0.0 


2000. 0 


2116.0 


9.6 


300.0 


0.0 


2000.0 


2099.4 


9.7 


300.0 


0.0 


2000.0 


2082.7 


9.8 


300.0 


0.0 


2000.0 


2066.0 


9.9 


300.0 


0.0 


2CC0.0 


2049.4 


10.0 


300. 0 


0.0 


2000.0 


2032.7 


10.1 


300.0 


0.0 


2000.0 


2016.0 


10.2 


300.0 


C.O 


2000.0 


1999.4 


10.3 


300.0 


0.0 


2000.0 


1982.7 


10.4 


300.0 


0.0 


2000.0 


1966.0 


10.5 


300.0 


C.O 


2000.0 


1949.4 


10.6 


300.0 


0.0 


2000.0 


1952.7 


10. 7 


300. C 


0.0 


2000.0 


1916.0 


10.8 


300.0 


0.0 


2000.0 


1899.4 


10.9 


300.0 


0.0 


2000.0 


1882.7 


11.0 


300. C 


0.0 


2000.0 


1 866.0 


11.1 


300.0 


0.0 


2000.0 


1849.4 


11.2 


300.0 


0.0 


2000.0 


1832.7 


11.3 


300.0 


0.0 


2000.0 


1816.0 


11.4 


300.0 


0.0 


2000.0 


1799.4 


11.5 


300.0 


C.O 


2000.0 


1782.7 


11.6 


300.0 


C.O 


2000.0 


1 766.0 


11.7 


300.0 


0.0 


2000.0 


1749.4 


11.8 


300.0 


O.o 


2000.0 


1732.7 


11.9 


300.0 


0.0 


2000.0 


1716.0 


12.0 


300.0 


0.0 


2000.0 


1699.4 


12.1 


300.0 


0.0 


2000.0 


1699.4 


12.2 


300.0 


0.0 


2000.0 


1 666 . 0 


12.3 


300.0 


0.0 


2000.0 


1649.4 


12.4 


300.0 


C.O 


2000.0 


1632.7 
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PL/M FLOATING PCINT NUMBERS: 



TIME 


SPE 


iED 




DIVE 


SEC. 


KNOTS 




DEGRE 


00 


00 


00 


40 


00 


00 


OA 


96 


00 


49 


00 


00 


14 


96 


00 


49 


00 


00 


IE 


96 


00 


49 


00 


CO 


28 


96 


00 


49 


CO 


00 


32 


96 


00 


49 


CO 


00 


3C 


96 


00 


49 


CO 


00 


46 


96 


00 


49 


00 


00 


50 


96 


00 


49 


00 


00 


5A 


96 


00 


49 


00 


00 


5F 


96 


00 


49 


00 


00 


60 


96 


oc 


49 


00 


00 


61 


96 


00 


49 


CO 


00 


62 


9o 


oc 


49 


00 


00 


63 


96 


00 


49 


00 


oc 


64 


96 


00 


49 


00 


00 


65 


96 


00 


49 


00 


00 


66 


96 


00 


49 


CO 


00 


67 


96 


00 


49 


00 


00 


68 


96 


00 


49 


00 


00 


69 


96 


00 


49 


CO 


00 


6A 


96 


00 


49 


00 


00 


6B 


96 


00 


49 


00 


00 


6C 


96 


00 


49 


00 


00 


6D 


96 


00 


49 


00 


00 


6E 


96 


00 


49 


00 


00 


6F 


96 


00 


49 


00 


00 


70 


96 


00 


49 


00 


00 


71 


96 


00 


49 


00 


00 


72 


96 


oc 


49 


00 


00 


73 


96 


00 


49 


CO 


00 


74 


96 


00 


49 


00 


CO 


75 


96 


00 


49 


CO 


00 


76 


96 


00 


49 


00 


CO 


77 


96 


00 


49 


00 


00 


78 


96 


00 


49 


00 


00 


79 


96 


00 


49 


00 


00 


7A 


96 


00 


49 


00 


00 


7B 


96 


oc 


49 


CO 


00 


7C 


96 


00 


49 


00 


00 



ALTITUDE DIST TO TARGET 
FEET YARDS 



FA 


00 


48 


E7 


35 


4C 


FA 


00 


4B 


OC 


CB 


4C 


FA 


00 


43 


D2 


60 


4C 


FA 


00 


4B 


C7 


F5 


4C 


FA 


00 


4B 


BO 


86 


4C 


FA 


00 


4B 


63 


20 


4C 


FA 


00 


4B 


A3 


B5 


4C 


FA 


00 


48 


9E 


4B 


4C 


FA 


00 


4B 


93 


EO 


4C 


FA 


00 


4B 


89 


75 


4C 


FA 


00 


4D 




40 


4C 


FA 


00 


4B 


83 


35 


4C 


FA 


00 


4B 


82 


2B 


4C 


FA 


00 


4B 


31 


20 


4C 


FA 


00 


4B 


30 


15 


4C 


FA 


00 


4B 


FP 


16 


4B 


FA 


00 


43 


FC 


00 


43 


FA 


00 


4B 


F9 


EB 


4B 


FA 


00 


4B 


F7 


06 


43 


FA 


00 


4B 


F5 


CO 


4B 


FA 


00 


4B 


F3 


A6 


4B 


FA 


00 


4B 


FI 


96 


48 


FA 


00 


4B 


EF 


81 


43 


FA 


00 


4B 


ED 


6B 


4B 


FA 


00 


48 


EB 


56 


4B 


FA 


00 


4B 


E9 


41 


4B 


FA 


00 


4B 


E7 


28 


43 


FA 


00 


4B 


E5 


16 


4B 


FA 


00 


4B 


E3 


01 


4B 


FA 


00 


4B 


EO 


EB 


48 


FA 


00 


48 


OE 


D6 


43 


FA 


00 


4B 


DC 


Cl 


4B 


FA 


00 


4B 


DA 


AB 


43 


FA 


00 


4B 


D8 


96 


4B 


FA 


00 


4B 


D6 


81 


4B 


FA 


00 


4B 


D4 


6B 


43 


FA 


00 


4B 


D4 


6B 


4B 


FA 


CO 


4B 


DO 


41 


4B 


FA 


00 


4B 


CE 


2B 


4B 


FA 


00 


4B 


CC 


16 


4B 



ANG 

ES 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 
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RUN 4 



TIME 


SPEED 


DIVE AN 


SEC. 


KNOTS 


DEGREES 


0.0 


0.0 


0.0 


1.0 


450.0 


“10.0 


2.0 


450. C 


-10.0 


3.0 


450.0 


- 10.0 


4.0 


45 0.0 


-10.0 


5.0 


450. C 


-10.0 


6.0 


450. C 


- 10.0 


7.0 


-450.0 


- 10.0 


8.0 


450. 0 


-10.0 


9.0 


450.0 


-10.0 


9.5 


450. 0 


-10.0 


9.6 


450. C 


- IC.O 


9.7 


450.0 


- 10.0 


9.8 


45 0 . 0 


- 10.0 


9.9 


450. C 


- 10. 0 


10.0 


450.0 


- 10.0 


10.1 


450.0 


-10.0 


10.2 


450. C 


-10.0 


10.3 


450.0 


-10.0 


10.4 


450.0 


- 10.0 


10. 5 


450. C 


-10.0 


10.6 


450.0 


- 10.0 


10.7 


45 0. C 


- 10.0 


10.8 


450.0 


- 10.0 


10.9 


450.0 


- 10.0 


11.0 


450.0 


- 10.0 


11.1 


450.0 


-10.0 


11.2 


450.0 


-10.0 


11.3 


450.0 


- 10.0 


11.4 


450.0 


- 10.0 


11.5 


450.0 


- 10.0 


11.6 


450.0 


- 10.0 


11.7 


450.0 


-10.0 


11.8 


450. C 


- 10.0 


11.9 


450.0 


-10.0 


12.0 


450.0 


-10.0 


12.1 


450. 0 


- 10.0 


12.2 


450.0 


-10.0 


12.3 


450. C 


-10.0 


12.4 


450.0 


-10.0 



DIST TO TARGET 
YARDS 



4451.7 5223.2 

4319.7 4982.0 

4187.7 4735.8 

4055.8 4489.6 

3923.8 4243.4 

3791.8 3997.2 

3659.8 3751.0 

3527.9 3504.8 

3395.9 3258.6 

3263.9 3012.4 

3198.0 2889.3 

3134.8 2664.7 

3171.6 2840.1 

3153.4 2815.4 

3145.2 2790.8 

3132.0 2766.2 

3118.8 2741.6 

3105.6 2717.0 

3092.4 2692.3 

3079.2 2667.7 

3066.0 2643.1 

3052.8 2618.5 

3039.6 2593.9 

3026.4 2569.2 

3013.2 2544.6 

3000.0 2520.0 

2986.8 2493.4 

2973.6 2470.8 

2960.4 2446.1 

2947.2 2421.5 

2934.0 2396.9 

2920.8 2372.3 

2907.6 2347.7 

2894.4 2323.0 

2881. 2 2298.4 

2868.0 2273.8 

2654.8 2249.2 

2841.6 2224.6 

2828.4 2199.9 

2815.2 2175.3 



SMOOTHED DATA FOR THE PL/M PROGRAM. 



ALT . 
FEET 
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PL/M FLOATING POINT NUMBEPS: 



TIME 


SPEED 




DIVE i 


ANG 


ALl 


r ITUOE 


DIST TO TARGET 


SEC. 


KNOTS 




DEGKE 


£S 


FEf 


ET 




YARDS 




00 


00 


00 


40 


CO 


00 


40 


8B 


ID 


40 


A3 


61 


40 


OA 


El 


00 


49 


AO 


00 


C4 


86 


FO 


40 


96 


30 


40 


14 


El 


00 


49 


AO 


00 


C4 


82 


DO 


40 


93 


FE 


40 


IE 


El 


00 


49 


AO 


00 


C4 


FD 


7C 


4C 


8C 


4C 


40 


28 


El 


00 


49 


AO 


00 


C4 


F5 


3C 


4C 


84 


9B 


40 


32 


El 


00 


4.9 


AO 


OC 


C4 


EC 


FD 


4C 


F9 


03 


4C 


3C 


El 


00 


49 


AO 


00 


C4 


E4 


3D 


4C 


EA 


70 


4C 


46 


El 


00 


49 


AO 


00 


C4 


DC 


7E 


4C 


OB 


OC 


4C 


50 


El 


00 


49 


AO 


00 


C4 


D4 


3E 


4C 


CB 


A9 


4C 


5A 


El 


00 


49 


AO 


00 


C4 


CB 


FF 


4C 


BC 


46 


4C 


5F 


El 


00 


49 


AO 


00 


C4 


C7 


OF 


4C 


84 


94 


4C 


60 


El 


00 


49 


AO 


00 


C4 


C7 


OC 


4C 


B3 


OA 


4C 


61 


El 


00 


49 


AO 


00 


C4 


C6 


38 


4C 


B1 


80 


4C 


62 


El 


00 


49 


AO 


00 


C4 


C5 


55 


4C 


AF 


F7 


4C 


63 


El 


00 


49 


AO 


00 


C4 


C4 


92 


4C 


AE 


60 


4C 


64 


El 


00 


49 


AO 


00 


C4 


C3 


BF 


4C 


AC 


E3 


4C 


65 


El 


00 


49 


AO 


CO 


C4 


C2 


EC 


4C 


A8 


59 


4C 


66 


El 


00 


49 


AO 


00 


C4 


C2 


19 


4C 


A9 


CF 


4C 


67 


El 


00 


49 


AO 


00 


C4 


Cl 


46 


4C 


AS 


45 


4C 


68 


El 


00 


49 


AO 


cc 


C4 


CO 


72 


4C 


A6 


6B 


4C 


69 


El 


00 


49 


AO 


00 


C4 


BF 


9F 


4C 


A5 


31 


4C 


6A 


El 


00 


49 


AO 


CO 


C4 


BE 


CC 


4C 


A3 


A7 


4C 


6B 


El 


00 


49 


AO 


CO 


C4 


BD 


F9 


4C 


A2 


1 0 


4C 


6C 


El 


00 


49 


AO 


on 


C4 


BD 


26 


4C 


AO 


93 


4C 


6D 


El 


00 


49 


AO 


00 


C4 


8C 


53 


4C 


9F 


09 


4C 


6E 


El 


00 


49 


AO 


CO 


C4 


BB 


80 


4C 


90 


80 


4C 


6F 


El 


00 


49 


AO 


00 


C4 


BA 


AC 


4C 


9B 


F6 


4C 


70 


El 


oc 


49 


AO 


00 


C4 


B9 


D9 


4C 


9A 


6C 


4C 


71 


El 


00 


49 


AO 


00 


C4 


B9 


06 


4C 


98 


E2 


4C 


72 


El 


00 


49 


AO 


00 


C4 


B8 


33 


4C 


97 


58 


4C 


73 


El 


00 


49 


AO 


CO 


C4 


67 


60 


4C 


95 


CE 


4C 


74 


El 


00 


49 


AO 


00 


C4 


B6 


80 


4C 


94 


44 


4C 


75 


El 


00 


49 


AO 


CO 


C4 


65 


B9 


4C 


92 


BA 


4C 


76 


El 


00 


49 


AO 


00 


C4 


B4 


E6 


4C 


91 


30 


4C 


77 


El 


00 


49 


AO 


00 


C4 


84 


13 


4C 


8F 


A6 


4C 


78 


El 


00 


49 


AO 


00 


C4 


63 


40 


4C 


8E 


1C 


4C 


79 


El 


00 


49 


AO 


00 


C4 


B2 


60 


4C 


8C 


92 


4C 


7A 


El 


00 


49 


AO 


00 


C4 


B1 


9A 


4C 


8B 


08 


4C 


7B 


El 


00 


49 


AO 


00 


C4 


BO 


C7 


4C 


89 


7F 


4C 


7C 


El 


00 


49 


AO 


00 


C4 


AF 


F3 


4C 


87 


F5 


4C 
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APPENDIX B 



THE EXTRAPOLATING TESTING PROGRAM AND OUTPUT 



This appendix shows the program that was used to 
the extrapolation routine on the System / 360 , together 
its output. 

The data used in this program is the same used in 
FL/H implementation. 



test 

with 



the 
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c - 

C * FROGPAM TO TEST THE EXTRAPOLATION ROUTINE 

C =!' AND THE SEARCH FOR THE RELEASE POINT 

C * 

C * DTT: DISTANCE TO TARGET IN YARDS 

C - DRT: DOWN RANGE TRAVEL IN YARDS 

C Y 

c ^ 5f:5;< A*:!: :It its '4t i^sjs ;;r « jisjttitsjtt yt 5*r 

CCNMON/TAD/T,X 

ccpmon/act/vp;ts, alt, deg, yt, idno 

CCMM0N/TIM/RTlNc(4) ,DR0(4» ,DTT(4) 

DIHENSICN VEL(4) ,DIV(4} , ALA(4) 

DIMENSION TIME (40) ,VEL0C(40) , D I VE ( 40 ) , A LT I T ( 40 ) 
DIMENSION XAC(40) ,DRT(40) 

YT=0. 

ICNG=10 
WRITE (6, 10) 

DC 20 IRUN=1,4 
WRITE( 6 , 10) 

10 FORMAT!* 1* ) 

WRITE(6,30) 

30 FCRMATi /////) 

WRITE(6,9) IRUN, IDNO 

9 FORMAT! 12X, 'RUM NUMB ER* , I 2 , » I0N0=',I2) 

DO 1 1=1,40 

1 READ!5,2) TIME ! I ) , VELCC ! I ) ,DIVE ! I ) ,ALTIT ! I ) ,XAC( I ) 

2 FORMAT! F4, I , F5 . 1 , F 5 . 1 , F6 . 1 , F6 . 1 ) 

C COMPUTATION OF OOWNRANGE TRAVEL FOR EACH POSITION. 

DC 8 1=2,40 
VKTS=VEL0C( I ) 

ALT=ALT IT! I ) 

DEG=DIVE! I ) 

CALL BAL 

8 DRT! I )=X-2000./6080. 

WR I T E ! 6 , 7 ) 

7 FORMAT!//) 

WRITE!6 , 14) 

14 FORMAT! 12X, 'DATA: • ) 

WRITE! 6 , 1 1 ) 

WRITE(6,15) 

15 FORMAT! 12X, ' TIKE VKTS DEG ALT DTT DRT») 
DRT! 1 ) =0. 

DC 12 1=1,40 

WRITE!6, 13)TIME! I ) ,V£LOC! I) ,DIVE ! I ) ,ALTIT! I ),XAC! I ) 
IDRT ! I ) 

13 FORMAT ! 12X,F4.1 , F6.1 , F6. 1 , F7.1 , F7.1 ,F7. 1 ) 

12 CONTINUE 
DO 3 1=1,4 
RTIME! I )= TIME! 1*2) 

VEL! I )=VELOC! 1*2) 

DIV! I ) = DIVE! 1*2) 

ALA! I ) =ALTIT! 1*2 ) 

DRC! I)=DPT! 1*2) 

3 DTT! I)=XaC( 1*2) 

C EXTRAPOLATION. 

DO 4 1=1,3 
XRT=10. +FLOAT! I-l ) 

XVEL=0RTFIT( XRT, VEL) 

XDIV = ORTFIT(XRT,DI V) 

XALA=CRTF1T(XRT, ALA) 

XDTT=ORTFIT!XRT,DTT) 

XDRO=ORTF!T! XRT, DRO) 

WRITE!6,11) 

11 FORMAT!/) 

WRITE! 6,5 >XRT,XVEL,XOIV,XALA,XDTT,XDRO 
5 FORMAT! 12X, 

1 'EXTRAPOLATION AT TIME ',F4.1,';', 

2/,12X, *VKTS = ' ,F5.1 ,' 0EG=',F5.1,' ALT = ',F6.1,' DTT 
3F6.1, * DRT=',F6.1) 

4 CONTINUE 
WRITE!6 ,7 ) 
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CALL INTER(XO,TRI 
WRITE(6 ,40)XD 

40 FOPMATi IZX, « OOWNRANGE TRAVEL FOUND BY EX TRA FOLAT I 0N= • , 
1F7. 1 ) 

WRITE(6,41 )TR 

41 FORMAK 12X, ’ TIME OF RELEASE FOUND BY EXT RAPOLAT I 0N=* , 
1F5.2) 

20 CONTINUE 

WRITE (6, 10) 

STCP 

END 

SLBRCUriNE BAL 
^ 



CCMMCN/AREA/ CT(2,2), CC(3,3,2>, IP.EF, 

ICFORMl, DKGl, DMAX, ITYPE, iBOTH, DM1,CF0RM2, DM2, 
2DKG2, DS, SL, FN, VMUZ, RAO, FRACT, VE, THETA, U, DEL, 
3V, VXA, VYA, CF, DM, DKG, VX, VY , TH , Y, YA, 

4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO, DTI, DTV 
5 ,G, A, AA,VYK,D,CKOG, MSTG 

COMMON/TAD/T,X 

CCMMON/ACT/VKTS, ALT,OEG, YT, lONO 
C CALL SETDAT TO INITIALIZE THE CONSTANTS 
CALL SETDAT 

C CALL DECODE TO INITIALIZE THE BOMB COEFFICIENTS 
CALL DECODE 

C CALL TRAJ TO CALCULATE THE SOLUTION TO THE DIFF. EQUATIONS 
CALL TRAJ 
RETURN 
END 

SUBROUTING SETDAT 

CCMMON/AREA/ Ci { 2 , 2 ) , CC(3,3,2), IREF, 

ICFORMl, DKGl, DMAX, ITYPE, IBOTH, DiMl,CF0RM2, DM2, 
2DKG2, US, SL, FN, VMUZ, RAD, FRACT, VE, THETA, U, DEL, 
3V, VXA, VYA, CF, DM, DKG, VX, VY, TH, Y, YA, 

4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO, DTI, DTV 
5 ,G, A, AA,VYK,0,CK0G,MSTG 

COMMON /T AD /T,X 

COMMON/ACT/VKTS, ALT,DEG,YT, IDNO 

G= 32.174 

RAD= 0.0174533 

A= 0.7 

AA= 0.5/A 

VYK = -5.0 

FRACT= 0.5 

DS = 0.0 

CF0RM1= 0.0 

CFCRM2= 0.0 

DMl= 0.0 

0M2= 0.0 

DKG1= C.O 

DKG2= 0.0 

VMUZ= 0.0 

VE= 0.0 

SL= 0.0 

OMAX= 5.0 

ITYPE= -1 

FN= 0.0 

IBOTH= 1 

T= 0.0 

U= VKTS *1.6378 
DEL= ATAN2(VE,U) 

V= SORT ( U*UfVEvVE ) 

THETA= DEG *RAO 

VXA= (V+-VMUZ)* COS(THETA-DEL) 

VYA= (V+VMUZ)* SINI THETA-DEL) 

RETURN 

END 



C 

C 

C 

c 

c 

c 




* THIS SUBROUTINE CALCULATES TIME OF FLIGHT 

* AND DOWN RANGE TRAVEL OF THE BOMBS. 
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SL6R0UTIME DECODE 

CCMMON//iR6A/ CT(2,2), CC(3,3,2), IREF, 

ICFORMl, DKGl, DMAX, ITYPE, IBOTH, DMl,CFORM2, DM2 
2DKG2, OS, SL, FN, VMUZ, RAD, FRACT, VE, THETA, U, 
3V, VXA, VYA, CF, DM, DKG, VX, VY , TH , Y, YA , 

4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO , DTI, 
5 ,G, A, aA,VYK,D,CKOG,MSTG 

COMMON/ TAD/T,X 

CGMMON/ACT/VKTS, ALT,DEG,YT , IDNO 

GO TO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17, 
1 ,20,21, 22,23,24,25,26,27,281 , IDNO 



C WEAPON CONSTANTS FOR THE 

1 IREF= 4 

DKG1= 2.5506E-03 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

2 IREF= 4 

DKG1= 6.2994E-03 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

3 IREF= 4 

OKGl= 4.01E-03 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

4 IREF= 2 
DMAX = 2.0 
CF0RM1= 3.9235E-03 
DKG1= 2.754E-03 
DTI = 2. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

5 1REF= 2 
DMAX = 3.0 
CF0RM1= 3.9I077E-03 
DKG1= 6.3648E-03 
DTI = 1. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

6 1REF= 4 
DMAX = 2. 

DKG1= 0.021266 
DTI = 1 . 

GO TO 31 

C WEAPCN CONSTANTS FOR THE 

7 IREF= 1 
CF0RM1= 2.5704 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

8 IREF= 4 
DMAX = 3.0 
DKGI= 9.767E-03 
DTI = 2. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

9 IREF= 1 
CFORMI= 2.064 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

10 IREF= 1 
CFORMl= 1.4932 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE 

11 IREF= 1 
CFCRM1= 1.3431 
DTI = 1 . 

GO TO 31 



MK 43 UNRETARDED 
MK 57 UNRETARDED 
MK 61 UNRETAROEO 
MK 116 W6T6YE 

MK 76 WITH LUG 

MK 77 FIRE6CMB 
MK 81 

MK 81 SNAKEYE UNRETARDED 

MK 82 MECH FUZE 
MK 82 ELEC FUZE 
MK 83 MECH FUZE 



DEL, 

OTV 

8, 19 
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C W5APGN CONSTANTS FOR THE MK83 ELEC FUZE 

12 IREF= 1 
CFORHl= 1.21 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 84 

13 IREF= 1 
CFCRM1= 1^0 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 117 AL 

14 IR£f== 1 
CFCRM1= 3.12 
DKG1= -1.223E-03 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 86 WET SAND FILLED 

15 IREF= 1 
CMAX =3. 

CFCRM1= 3.4972 
DTI = 2. 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 83 WET SAND FILLED 

16 IR£F=1 
CFCRM1= 1.605 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 82 SNAKEYE UNRETARDED 

17 IREF= 4 
DMAX = 3. 

DKG1= 7.329E-03 
DTI = 1 . 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 82 SNAKEYE RETARDED 

18 IREF= 1 
ITYPE= 1 
IBOTH= 2 
0KG1= 7.329E-03 
CF0RM2= 1.6395E-02 
DM2= 0.38 

DKG2= 0.17166 
DS= 0.6617 
SL= -0.000269 
DTI = 2.0 
GO TO 31 

C WEAPON CONSTANTS FOR THE SADEYE T1 = 4.0 

19 IREF= 1 
ITYPE= 1 
IBOTH= 2 
CFGRM1= 2.0754 
CFCRM2= 0.2217 
DS = 4.267 

DTI = 1.5 
GO TO 31 

C WEAPON CONSTANTS FOR THE ROCKEYE II Tl = 4.0 

20 IREF= 1 
ITYPE= 1 
IBOTH= 2 
CFORMl= 2.2973 
DM1= 0.32 
DKGl= 8.175E-03 
CFCRH2= 1.1136E-02 
DM2= 0.41 

DKG2= 0.16385 
DS = 4.06 
DTI = 2.0 
GO TO 31 

C WEAPON CONSTANTS FOR THE CBU Tl = 4.0 

21 IREF= 1 
ITYPE= 1 
I60TH= 2 
CF0RM1= 2.2404 
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CFGRM2= 0.1178 
DS = 4.0 
DTI = 1.62 
GO TO 31 

C WEAPON CONSTANTS FOR THE MK 81 SNAKEYE RETARDED 

22 IREF= 1 
ITYPE= I 
IBOTH= 2 

DKG1= 9.767E-03 
CF0RM2= 2.30625E-02 
DH2= 0.38 
DKG2= 0.23287 
DS= 0.679 
SL= -0.000303 
DTI = 1.622 
GC TO 31 

C WEAPON CONSTANTS FOR THE GUN 

23 IREF= 3 
DKAX =1.5 
CF0RM1= 2.9964 
DKG1= -0.014992 
VNUZ= 3300.0 
DTI = 0.5 

GO TO 31 

C WEAPON CONSTANTS FOR THE ROCKETS 

24 1REF= 3 
ITYPE= 2 
CFGRN1= 0.82 
CF0RM2 = 1.0 
FN= 1 746. 0 
DS = 1.4225 
DTI = 1 . 

GO TO 31 

C WEAPON CONSTANTS FOR THE MK 43 RETARDED 0.4 SEC DELAY 

25 IREF= 4 
ITYPE= 0 
DS= 0.98 
DKG2= 1 .4 3 
DTI = 0.31 
GO TO 31 

C WEAPON CONSTANTS FOR THE MK 57 RETARDED 0.8 SEC DELAY 

26 IREF= 4 
1TYPE= 0 
DS= 0.89 
DKG2= 2.0 
DTI = 0.22 
GO TO 31 

C WEAPON CONSTANTS FOR THE MK 61 RETARDED 0.6 SEC DELAY 

27 IREF= 4 
ITYPE= 0 
DS= 0.89 
DKG2= 2.70 
DTI = 0.1 
GO TO 31 

C WEAPON CONSTANTS FOR THE MK 106 MOO 2 

28 IREr= 2 
1TYPE= 2 
CFORMl= 0.1514 
CF0RM2= 0.1514 
DS = 0.5 

DTI = 0.8 

C SET THE REFERENCE DRAG CURVE COEFFICIENTS AND CUTS 

31 GO TO (32,33,34,51), IREF 

32 CC(l,l,li= 1.572924E-03 
CC( 1,2, 1 )= 0.0 

CC( 1,3, 1 )= 0.0 
CC(2,l,l)= 4.673409E-02 
CC(2,2, 1 )=-C.109711069 
CC(2, 3, 1)= 6.654801E-02 
CC(3, L, 1 )=-0. 1163801 57 
CC( 3, 2, 1 )= 0.21 7643394 
CC(3,3,1)= -9.767068E-02 
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CT(1, 1)= 0.834 
CT(2,l)= 0.977 
IF (IBOTH-1) 33t99,33 

33 CC( 1, 1, I80TH)= 3.53503924 
CC(1,2, IB0TH)=-3. 34778216 
CC( 1,3, IB0TH)= 2.87262413 
CC (2, 1, I BOTH) = 1 1 . 2615 503 
CC(2,2, 1 BOTH) = -27. 41 62 51 2 
CC(2,3, IBOTH)= 21.7308359 
CC< 3, 1 , I BOTH) =-2 3. 7915472 
CC( 3, 2, IBOTH )= 44.2607764 
CC(3, 3, I BOTH) =-14. 49 96 046 
CT(1,IBCTH)= 0.622 

CT(2, IBGTH)= 0.385 
GO TO 51 

34 CC( 1,1, I )= 0.104115 

CC< 1, 2, 1 )= -0.230347 
CC(1,3,1)= 0.167644 

CC(2, 1 , 1 )= -0.194037 
CC(2,2,1)= 0.401473 

CC(2,3,1)= -0.1o4612 
CC(3, 1,1)= 7.33246E-02 

CC(3, 2, 1 )= -2.03275E-02 
CC(3,3, 1)= 2.44682E-03 

CT(1,1)= 1.032 

CT(2, 1)= 1.30 
99 DO 100 1=1 ,3 
DO 100 J=l,3 
ecu, J, 2) =0.0 
ICC CONTINUE 

CT( 1 ,2) =0.0 
CT(2,2) =0.0 
51 RETURN 
END 

SUBROUTINE TRAJ 

CCNMON/AREA/ CT(2,2), CC(3,3,2), IREF, 

ICFCRMl, DKGl, OMAX, ITYPE, IBOTH, 0M1,CFCRR2, DM2, 
2DKG2, DS, SL, FN, VMUZ, RAD, FRACT, VE, THETA, U, DEL, 
3V, VXA, VYA, CF, DM, DKG, VX, VY, TH, Y, YA, 

4VXG, YO, VYQ, ANl, AN2, API, AP2, IREG, RHO, DTI, DTV 
5 ,G, A, AA,VYK,D,CKOG,MSTG 

COKMON/TAO/T,X 

CCHMCN/ACT/VKTS, ALT,OEG,YT, lONO 
C INITIALIZE THE VARIABLES FOR THE TRAJECTORY SUBROUTINE 
CF= CFORMl 
DN= DM1 
DKG= OKGl 
MSTG= 1 
X= 0.0 
T= 0.0 
VX= VXA 
VY= VYA 
TH= FN 
Y= ALT 
YA= Y 

C TYPE OF DRAG 

IF UTYPE) 2,1,1 

C SET STEP SIZE FOR FIRST STAGE DRAG 

1 D= D5+SL*U 
GC TO 3 

C COMPUTE STEP SIZE 

2 D = DMAX 

C CALL RUNGE KUTTA SUBROUTINE 

3 CALL RUNGE 

DTV = 1 /G=;'(VY + SQRT{VY=^=!'2 + 2.-G*( Y ) ) ) 

0 = DTI 

IF { ( lONO.LE .17) .OR. ( IONO.E0.23 ) ) GO TO 4 
C SET THE SECOND STAGE DRAG PARAMETERS 
MSTG = 2 

IF ( ITYPE. EQ. 2) MSTG = 1 
DKG= DKG2 
DR= DM2 
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CF = CFCRM2 
TH = 0.0 

4 IF (DTV - D) 5,3,3 

C SET THE STEP SIZE TO THE VACUUM DROP TIME REMAINIMG 

5 D= DTV 

C SET THE DRAG PARAMETERS FOR THE FINAL INTEGRATICN STEP 
MSTG= 2 

IF ( ITYPE.EQ.2I MSTG = 1 

DKG= 0KG2 

DM= DM2 

TH=0.0 

CE- CFCRM2 

C CALL RUNGE FOR THE FINAL INTEGRATION STEP 
CALL RUNGE 

DTV = 1 /G-( VY+SQRT( VY«=!'2 + 2.=!'G*( Y n ) 

C UPDATE THE TIME OF FALL AND THE DOWN RANGE TRAVEL 
T = T f DTV 
X = X 4-DTV^VX 
RETURN 
END 

SUBROUTINE RUNGE 

CCM.MCN/ AREA/ CT(2,2), CC(3,3,2I, IREF, 

ICFORMl, DKGl, DMAX, I TYPE, IBGTH, DMl,CF0RM2, 0M2, 
2DKG2, DS, SL, FN , VMUZ, RAD, FRACT, VE, THETA, U, DEL, 
3V, VXA, VYA, CF, DM, DKG, VX, VV , TH , Y, YA, 

4VX0, YG, WO, ANl, AN2, API, AF2, IREG, RhO, DTI, DTV 
5 ,G, A, AA, VYK, D-CKDG, MSTG 

COMMCJN/TAD/T,X 

COMMON / AC T/VKT S,ALT,DEG,YT,IDNO 
C INITIALIZE THE VARIABLES FOR THE RUNGE KUTTA 
AD = A=:=D 
Y0= Y 
VXC= VX 
VYO= VY 

RHO= 2. 37576E-03-Y-M6. 875 5VE-08-Y=!'6.71618E- 13 ) 

CALL DtRIV 

C UPDATE POSITION AND VELOCITIES 
Y= YO+AC=WY 

RHO= 2. 375 76E-03-Y«(6. 875 5 7E- 08- Y=!^6. 71618E-13) 

APi= AP2 
AN1= AN2 
VX= VXC+AD*AN1 
VY= VYC+AD*AP1 
CALL OERIV 

C COMPUTE TIME, POSITION AND VELOCITIES 
T= T + D 

X= X+D=M VXO + AA*( VX-VXO) ) 

Y= YO<-D-( VYOf AA- ( VY-VYOM 
VX= VXO+D*( ANl +AA=^ ( AM2-AN1 ) ) 

VY= VYC^•D=!=(AP1 + AA*(AP2-AP1) ) 

RETURN 

END 

SUBROUTINE DERIV 

CCMMCN/AREA/ CT(2,2), CC(3,3,2), IREF, 

ICFORMl, DKGl, DMAX, I TYPF , IBOTH, DM1,CFCRM2, DM2, 
2DKG2, DS, SL, FN, VMUZ, RAD, FRACT, VE, THETA, U, DbL, 
3V, VXA, VYA, CF, DM, DKG, VX, VY , TH, Y, YA, 

4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO, DTI, DTV 
5 ,G, A, AA ,VYK,D,CKDG,MSTG 

COMMON /TAD/T,X 

COMMON/ACT/VKTS, ALT, DEG, YT, IDNO 
C COMPUTE THE TOTAL VELOCITY AND THE MACH OF THE WEAPON 
V = SQRT( VX*VX+VY*VY) 

CM= V«( 8.9544E-04*-3.26E-09«Y)+DM 
C DETERMINE THE REGION OF THE DRAG CURVE THAT IS APPLICABLE 
IF (CM-CT( 1, MSTG I ) 1,1,2 

1 IREG= 1 
GO TO 5 

2 IF (CM--CT(2,MSTG ) ) 3,3,4 

3 IREG= 2 
GO TO 5 

4 IBEG= 3 
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ooo o n no oooooo oo oooooo 



c 



DO INTERMEDIATE BALLISTIC CALCULATION 

5 CKDG = OKG^CF*(CC( IREG,lfMSTG)<-(CC(IREG, ZtMSTG) 
1+CC ( I REG , 3 , MSTG ) *CM J «CM ) 

HH= TH/V-RHO*CKDG“-^V 

AN2= HH*VX 

AP2= HH=;<VY-G 

RETURN 

END 

SUBROUTINE INTE R ( X AR P , T A RP ) 



1 

2 

3 



3 

I 



2 

A 



❖ 



SETS UP THE INCREMENTS OF TIME AND THE 
DIRECTION OF SEARCH OF THE INTERSECTION. 



» '*• -r 



.iV *V '‘V .V ^ w V. < 

•f- ^ >i' *1'* nr 'f' n* -r -v 'r '>* 'T 'i* -n* ^ ^ A' nr 'r nr nr ■ 



4= 

Sf' 



CCMMON/TIM/RTIME ( A) ,DRO(A) ,DTT(A) 
CCMMON/PET/RT, ZERO 
RT=RTIME( 1 ) 

DT=1. 

RES=1.0 MEANS THE ANSWER WAS FOUND. 
RES=0.0 MEANS: NO SOLUTION. 

RES = CO.MP(DT) 

IF (RES .EC. 0.0 ) GO TO 2 
IF (RcS .EC. 1.0) GO TO 1 
DT=-0. 1 
RES=COMP(DT) 

IF (RES .EO. 1.0) GO TO 1 

DT=0.01 

RES=CCMP(DT) 

IF (RES .EQ. 1.0) GO TO 1 

DT=-0.0009 

RES=COMP(DT) 

TARP=RT 
XARP=ZERQ 
GO TO 3 
TAPP=0. 0 
RETURN 
END 

FUNCTION COMP(DT) 



* 

■if 



^ •J.* 



^ :^c 5 jc jJ: 5j.' : 5 c >;c ^ ::Jc :r{c ;Jc ^ 



EXECUTES THE SEARCH UNTIL THERE IS A 
OF SIGN OR THE INTERSECTION WAS FOUND 



^0 ^X0 ^0 ^ 

0^ 0^ 0^ > 1 % 0^ 

CHANGE 






^X0 ^0 wu ^ ^0 ^0 V-^ ^ ^ 

0^\ 0^^ 7 ^ ^ -V* ^ ^r* o'* ^ ^ 



CCMMON/TIM/RTIME { A ) ,DRO(A) ,DTT(A) 

COMMON/ RET/RT,ZERO 

’.•=i=«'’ZERG" , FOR THE XAC ARRAY. =:=*« 

"ONE", FOR THE XDROP ARRAY. 

CCMP='l .0 

DC 1 1=1,50 

ZERO=ORTFIT(RT,DTT) 

CNE=ORTFIT(RT,DRC) 

IF((CT .EQ. 1.) .AND. ((ZERO .LE. 0.05 .OR. 

HONE .LE. 0.0) ) )COMP = 0.0 
IF (ABS (ONE- ZERO ) .LT. 0.001 ) GO TO 2 
IF (OT .GT. 0.0) GO TO 3 
IF (ZERO. GT. ONE) RETURN 
GO TO 1 

IF (ONE. GT. ZERO) RETURN 

RT = RT<-0T 

CCMP=0.0 

C0MP=0.0 MEANS; NO SOLUTION. 

GO TO A 
CCMP=1 .0 

C0MP=1.0 MEANS THE ANSWER WAS FOUND. 

RETURN 

END 

FUNCTION ORTFIT(RT ,RARRAY) 

y; 5>t «,}: a!: Ji: 5!: ****««*« ❖<=**#❖’?* * 

a!t * 

« THIS FUNCTION GENERATES THE NECESSARY * 
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C - CRTHOGONAL POLYNOMIALS » FINDS THE * 

C =!« COEFFICIENTS OF THE POLYNOMIAL THAT 

C REPRESENT THE DATA POINTS AND EXTRAPOLATE FOR « 

C * THE REQUIRED TIME. * 

C ^ 



CCMMCN/TIM/RTIME (4) 

DIMENSION RARRAY(4) 

DIMENSION ARRAYI4J 
DIMENSION C(4) 

C RT: REAL TIME 

DC 1 1=1,4 

I ARRAY! I )=RARRAY( I J 
S0=4.0 

B=0.0 

DO 8 1=1,4 

8 B=B+RTIME(I) 

BO=B/SC 

S1=0.0 

DO 9 1=1,4 

9 Sl = Sl + ( RTIME! I )-BO )«*2 
B = 0.0 

DO 10 1=1,4 

10 B = B4-( RT IMEII n *( RTI ME ( I >-60 ) 

ei=B/si 

C1=S1/S0 

S2=0.0 

DC 11 1=1,4 

II S2 = S2 + ( (RTIMEI I)-B1)«(RTIME( I)-B0>-C1)^<‘*2 
B = 0.0 

DO 111 1=1,4 

111 B=5+RTIME( I)*( (RTIME! 1 )-Bl)>:--(RTIME( I )-B0)-Cl)**2 
B2=B/S2 

C2=S2/S1 

S3=0,0 

DC 112 ! = !,'+ 

112 S3=S3+( (RTIMEI I)-B2)*( ( RTIME! I )-Bl)=«MRTIME( U-BO) -CD- 
1C2*(RT1ME( I)-BO) )-*2 

D = C.0 

DC 12 1=1,4 

12 D = 0 + ARRAY(n 
C( 1)=0/S0 

D = 0.0 

DO 13 1=1 ,4 

13 D=D<-(ARPAY( I ))=!=( RTIME! I)-BO) 

C ( 2>=D/S1 

D = 0.0 

DO 14 1=1,4 

14 D=D+( (ARRAY! I >) ( RT I ME (1 ) -B 11 =!= ( RT I ME (I ) -BO ) -Cl J ) 

C( 3)=D/S2 

D=0.0 

DO 141 1=1,4 

141 D = D+(ARRAY( I ))*( (RTIME! I )-B2)*( ( RTIME! n-Bl )*!RTIME( I) 
1-B0)-C1 )-C2-(RTIME( I )-30)) 

ORTFIT = C( 1 ) <-C (2) * ( RT-BO) <-C (3 ) - ( { PT-Bl) - ( RT- EO )-C 1) 

1 +C(4)*( (RT-B2)-! (RT-Bl>=<=(RT-B0>-Cll-C2^(RT-80) ) 

RETURN 

END 
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RUN NUMBER 1 IDKC=10 



DATA 


• 








TIME 


VKTS DEG 


ALT 


DTT 


DRT 


0.0 


0.0 O.C 


7549.4 


4148.9 


0.0 


1.0 


398.0 -30.5 


7207.8 


39 58. 5 


2468.3 


2.0 


406.8 -29.9 


6865.5 


3762. 6 


2446.4 


3.0 


415.2 -29.3 


6522.3 


3561.4 


241 7.6 


4.0 


423.4 -28.8 


6178.3 


3355. 3 


2376.7 


5.0 


431.1 -28.3 


5833.3 


3144.3 


2328.3 


6.0 


438.5 -27. 6 


5487.4 


2928.9 


2273.4 


7.0 


445.5 -27.5 


5140.5 


2709.3 


2193.3 


8 .0 


452.1 -27.1 


4792. 5 


2485.8 


2122.3 


9.0 


450.4 -26.8 


4443.4 


2258. 5 


2032.5 


9.5 


482.8 -26.6 


4263.4 


2143.5 


1990.0 


9.6 


464.5 -26.5 


4233.4 


2120.4 


1986. 2 


9.7 


465.1 -26.5 


4198.4 


2097.3 


1974.6 


9.8 


465.6 -26.5 


4163.3 


2074.2 


1962.7 


9.9 


466.2 -26.4 


4128.3 


2051.0 


1956.5 


10.0 


466.7 -26.4 


4093 .2 


2027.8 


1 944 . 5 


10.1 


467.3 -26.4 


4058.1 


2004.5 


1932.6 


10.2 


467.8 -26.4 


4023.0 


1981. 2 


1920.5 


10.3 


^68.3 -26.4 


5987.9 


19 57.9 


1908.3 


10.4 


463.9 -26.3 


3952.8 


1954.6 


1901.6 


10.5 


469.4 -26 . 3 


3917.6 


1911.2 


1889. 3 


10.6 


469.9 -26.3 


3032 . 5 


1887.8 


1876.9 


10. 7 


470.4 -26.3 


3847.3 


1364. 3 


1864.4 


10.8 


471.0 -26.2 


3812.1 


1840.9 


1857.3 


10.9 


471.5 -26.2 


3776.9 


1817.4 


1 845.4 


11.0 


472.0 -26.2 


3741.7 


1793.9 


1332.7 


11. 1 


472.5 -26.2 


3706.5 


17 70. 3 


1819.9 


11.2 


473.0 -26.2 


3671.3 


1 746. 7 


1807.0 


11.3 


473.5 -26.1 


3636 . 1 


1723. 1 


1799.4 


11.4 


474.0 -26.1 


3600.8 


1699.5 


1786.3 


11.5 


474. 5 -26. 1 


3565.5 


1675. 3 


1773.2 


11.6 


474.9 -26.1 


3530.3 


1652. 1 


1759.9 


11.7 


475.4 -26.1 


3495.0 


1623.4 


1746.6 


11.8 


475.9 -26.1 


3459.7 


1604.6 


1733. 3 


11.9 


476.4 -26. C 


3424.3 


1580.8 


1725.0 


12.0 


476. 9 -26. C 


3389.0 


1557.0 


1711.5 


12.1 


477.3 -26.C 


i3 5 3 .7 


] 533.2 


1697.8 


12.2 


477.8 -26. C 


3318 .3 


1509.3 


1684.2 


12.3 


478.2 -26.0 


3282.9 


1485.5 


1670. 3 


12.4 


478.7 -26.0 


3247.6 


1461. 5 


1656.6 


EXTRAPOLATION AT 


TIME 10 


.0: 





VKTS=463.9 0EG=-26.7 ALT=4093.5 DTT=2027.8 DRT=1925.5 



EXTRAPCLATI ON AT TIME 11.0: 

VKTS=469.0 DEG=-26.5 ALT=3742.3 DTT=1794.0 DRT=18i2.6 



EXTRAPCLATICN AT TIME 12.0: 

VKTS-473.6 DEG=-26.4 ALT=3389.9 DTT=1557.3 DRT=1688.4 



DOWNRANGE TRAVEL FOUND BY EXT R A POLAT I 0N= 1831.4 
time of RELEASE FOUND BY EXTRAPOLAT I0N=10 .84 
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run number 2 ICN0=10 



DATA 


• 








TIME 


VKTS DEG 


ALT 


DTT 


DRT 


0.0 


0.0 0.0 


9225.4 


3896.0 


0.0 


1.0 


343.6 -37.0 


8876.3 


3743.5 


2269.0 


2.0 


355.2 -37.2 


8513 . 7 


3586.3 


2235.0 


3.0 


366.5 -37.2 


8139.5 


3424.1 


2202.1 


4.0 


377.5 -37.1 


7755 .3 


3256.7 


2164.9 


5.0 


388.1 -36.8 


7362.9 


3084.0 


2129.0 


6.0 


398.4 -36.4 


6964 . 1 


2905.8 


2089.8 


7.0 


400.4 -35.8 


6560.6 


2721.8 


2052.4 


8.0 


418.1 -35.1 


6154.1 


2531.9 


2012. 3 


9.0 


427.6 -34.4 


5746.5 


2335.8 


1963.5 


9.5 


434.6 -33.7 


5542.7 


2235.4 


1958.5 


9.6 


437.4 -33.5 


5502.0 


22 15. 1 


1966. 1 


9.7 


438.3 -33.4 


5461.3 


2194. 3 


1958.6 


9.8 


439.2 -33.3 


5420.6 


2174.4 


1954. 2 


9.9 


440.1 -33.2 


5379.9 


2153.9 


1949.6 


10.0 


441.0 -33.1 


5339.3 


2133.4 


1944.9 


10.1 


441 .9 -33. C 


5298.7 


2112.8 


1940.2 


10.2 


442.8 -32.9 


5253 . 1 


2092.1 


1935.4 


10.3 


443.8 -32.8 


5217.5 


2071. H 


1930.7 


10.4 


444. 7 -32. 7 


5177.0 


2050.6 


1925.8 


10.5 


445.6 -32.6 


5136.5 


2029.8 


1920.7 


10.6 


446.5 -32.5 


5096 .0 


2008.8 


1915.6 


10.7 


447.4 -32.4 


5055 . 5 


1987.3 


1910.4 


10.8 


448.3 -32.3 


5015. 1 


1966.8 


1905 . 1 


10.9 


449.2 -32.2 


4974.7 


1945.6 


1899. 8 


11.0 


450.1 -32.0 


4934 . H- 


1924. 5 


1899.5 


11.1 


451 .0 -31.9 


4394. 1 


1903.2 


1893.9 


11.2 


451.9 -31 . 8 


4853 . 8 


1881.9 


1888.3 


11.3 


452.8 -31.7 


4613 .6 


1860.5 


1682.7 


11.4 


453.7 -31.6 


4773.5 


1839.0 


1876.9 


11.5 


454.6 -31.5 


4733.3 


1017.5 


1871 . 1 


11.6 


455.5 -31.4 


^693.3 


1795.9 


1865.2 


11.7 


456.4 -31.3 


4653.2 


1774.2 


1359.2 


11.8 


457.3 -31.2 


4613.3 


1752. 5 


1853.1 


11.9 


458.2 -31.1 


4573.4 


1730.7 


1847.0 


12.0 


459.1 -30.9 


4533.5 


1706.3 


1 845. 8 


12.1 


460.0 -30.8 


4493.7 


1686.8 


1839.5 


12.2 


46G.9 -30.7 


4453.9 


1664.3 


1833.1 


12.3 


461.8 -30.6 


4414.3 


1642.7 


1826.6 


12.4 


462.7 -30.5 


43 74 .6 


1620.6 


1820.0 


EXTRAPOLATION AT 


TIME 10 


'.0: 




VKTS: 


=436.4 DEG=-33.2 ALT 


=5339.8 


; DTT=2134 



EXTRAPCLATI GN AT TIME 11.0: 

VKTS=445.1 DEG=-32.0 ALT=4935.3 0TT=1925.5 0RT=1900.3 



EXTR/iPCLATIGN AT TIME 12.0: 

VKTS=453.5 DEG=-30.7 ALT=4535.0 0TT=1710.4 DRT=1864.6 



DQWNRANGE TRAVEL FOUND BY EXT R APOL AT ION= 1895.2 
time CF RELEASE FOUND BY EXTR APOLAT I 0N= 1 1 . 1 4 
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RUN NUMBER 3 ICN0=10 



DATA; 



TIME 


VKTS 


DEG 


ALT 


DTT 


CRT 


0.0 


0.0 


0.0 


2000.0 


3699.4 


0.0 


1.0 


300.0 


O.C 


2000.0 


3532.7 


1837.2 


2.0 


300.0 


0. C 


2000.0 


3366.0 


1837.2 


3.0 


300.0 


O.C 


2000.0 


3199.4 


1837.2 


4.0 


300.0 


O.C 


2000 .0 


3032.7 


1837. 2 


5.0 


300.0 


O.C 


2000.0 


2866. 0 


1837.2 


6.0 


300.0 


O.C 


2000 .0 


2699.4 


1837.2 


7.0 


3 00.0 


O.C 


2000 .0 


2532. 7 


1837.2 


8.0 


300.0 


0.0 


2000 .0 


2366.0 


1837.2 


9.0 


3 00.0 


0.0 


2 000 .0 


2199.4 


183 7. 2 


9.5 


3 00.0 


O.C 


2000.0 


2116.0 


1837.2 


9.6 


3 00.0 


O.C 


2000.0 


2099.4 


1837.2 


9.7 


300.0 


O.C 


2000.0 


2082.7 


1837.2 


9.8 


300.0 


0. C 


2CG0.0 


2 066 . 0 


1837.2 


9.9 


300.0 


0.0 


2000.0 


2049.4 


1337.2 


10.0 


300.0 


O.C 


2000. 0 


2032. 7 


1337. 2 


10. 1 


3 00.0 


O.C 


2000.0 


2016.0 


1337.2 


10.2 


300.0 


0.0 


2000 .0 


1999.4 


1837.2 


10.3 


300.0 


O.C 


2C00.0 


1962. 7 


1 837. 2 


10.4 


300.0 


O.C 


2000.0 


1966.0 


1837.2 


10.5 


300.0 


0. 0 


2000.0 


1949.4 


1837.2 


10.6 


300.0 


0. c 


2000.0 


1932.7 


183 7. 2 


10.7 


300.0 


0.0 


2000 .0 


1916.0 


1837. 2 


10.8 


300.0 


0. c 


2 000 .0 


1399.4 


1837.2 


10.9 


3 00.0 


0. 0 


2000.0 


1882. 7 


1 837. 2 


11.0 


3 00.0 


0. 0 


2000.0 


18o6 . 0 


183 7.2 


11.1 


300.0 


O.C 


2000.0 


1849.4 


1 837.2 


il.2 


300.0 


O.C 


2000.0 


1832.7 


1857.2 


11.3 


300.0 


0. c 


2000.0 


1816.0 


1837. 2 


11.4 


300.0 


O.C 


2000.0 


1799.4 


1 837.2 


11.5 


300.0 


0.0 


2000.0 


1782.7 


1837.2 


11 .6 


3 00.0 


0.0 


2C00.0 


1766.0 


1 83 7.2 


11.7 


300.0 


0.0 


2000.0 


1749.4 


1837.2 


11.8 


300.0 


O.C 


2000.0 


1732.7 


1837.2 


11.9 


500.0 


0. 0 


2000.0 


171b. 0 


1337.2 


12.0 


300.0 


0.0 


2000.0 


1699.4 


1 63 7.2 


12.1 


300.0 


0. 0 


2000.0 


lo99.^ 


1 837.2 


12.2 


300.0 


0. 0 


2000.0 


1666.0 


1837.2 


12.3 


3 00.0 


O.C 


2000.0 


1649.4 


1837.2 


12.4 


300.0 


0.0 


2000. 0 


1632.7 


1 83 7. 2 


EXTRAPOLATION AT 


TIME 10 


.0: 




VKTS = 


= 300.0 


DEG = 


0.0 ALT 


=2000.0 


DTT=2( 


EXTRAPOLATION AT 


TIME 11 


.0 : 




VKTS = 


=300.0 


DEG=i 


0.0 ALT 


=2000.0 


DTT=1! 



EXTRAPCLATICN AT TIME 12.0: ^ ^ 

VKTS=300.0 0EG= 0.0 ALT = 2000.0 DTT=1701.2 DRT=16:>7.2 



DOWNRANGE TRAVEL FOUND BY EXTRAPOL AT ION= 1837.3 
time of RELEASE FOUND BY EXTR APOLAT ICN=1 1 . 13 
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RUN NUMBER 4 ICNO=10 



data: 



TIME 


VKTS 




DEG 


ALT 


DTT 


DRT 


0.0 


0.0 




0.0 


4451.7 


5228.2 


0.0 


1.0 


450.0 


- 


10.0 


4319.7 


4982.0 


3106.4 


2.0 


450.0 


- 


10.0 


4187.7 


4735. 8 


3047.7 


3.0 


450.0 


— 


10.0 


4055.8 


4489.6 


2933.1 


4.0 


450. 0 


- 


10.0 


3923.8 


4243.4 


2927.6 


5.0 


450.0 


- 


10.0 


3791.8 


3997. 2 


2866.1 


6.0 


450.0 


- 


10.0 


3659.8 


3751.0 


2803. 6 


7.0 


450.0 


- 


10.0 


3527.9 


3504. 8 


2740. 0 


8.0 


450.0 


— 


10.0 


3395.9 


3258. 6 


2675.2 


9.0 


450. 0 


- 


10.0 


3263.9 


3012.4 


2610.1 


9.5 


450.0 


- 


10.0 


3198.0 


2889.3 


2576.6 


9.6 


450.0 


- 


10 .0 


3184.8 


28 64.7 


2569. a 


9.7 


450.0 


- 


10.0 


3171 .6 


2340.1 


2563.1 


9.8 


450.0 


- 


10.0 


3153.4 


281 5.4 


2556.3 


9.9 


450.0 


- 


10.0 


3145.2 


2790.8 


2549,5 


10.0 


450.0 


- 


10.0 


3132.0 


2766.2 


2542.7 


10. 1 


450.0 


— 


10. c 


3118.8 


2741.6 


2535.9 


10.2 


450.0 


- 


10. c 


3105.6 


2717.0 


2 52 9. 1 


10.3 


450.0 


- 


10. c 


3C9 2.4 


2692. 3 


2522.2 


10.4 


450.0 


- 


10.0 


3079.2 


2667.7 


2515.4 


10.5 


4 50 .0 


- 


10.0 


?0o6 .0 


2643. 1 


2503.5 


10.6 


450.0 


- 


10.0 


3052.8 


2613.5 


2501 . 6 


10.7 


450.0 


- 


10 .0 


3039.6 


2593.9 


2494. 7 


10.8 


450.0 


- 


10.0 


5026.4 


2569.2 


2487.0 


10.9 


450.0 


- 


10.0 


30 13. 2 


2544. 6 


2480. 9 


11.0 


450.0 


- 


10 . 0 


3000.0 


2520.0 


24^4.0 


11.1 


4 50.0 


- 


10.0 


2986.8 


2495.4 


2467.0 


11.2 


450.0 


— 


10.0 


2973.6 


24 70.3 


2460.0 


11.3 


450.0 


- 


10.0 


2960.4 


2446. 1 


2453. 1 


11.4 


450.0 


— 


10.0 


2947.2 


2421.5 


2446.1 


11.5 


450. C 


- 


10. c 


2934.0 


2396.9 


2439. 1 


11.6 


4 50.0 


- 


10.0 


2920.8 


2372. 3 


2432.0 


11.7 


4 50.0 


- 


10.0 


2907.6 


2347.7 


2425.0 


11.8 


450.0 


- 


10.0 


2894.4 


2323.0 


2417.9 


11.9 


450. 0 


- 


10.0 


2881.2 


2298.4 


2410.9 


12.0 


450.0 


- 


10.0 


2868.0 


2273. 3 


2403.8 


12.1 


4 50.0 


- 


10.0 


285^.3 


2249.2 


2396.7 


12.2 


450.0 


- 


10.0 


2841 .6 


2224.6 


2389. 6 


12.3 


450. C 


— 


10.0 


2828.4 


2199.9 


2382. 5 


12.4 


450.0 




10.0 


2315.2 


2175.3 


2375. 3 


EXTRAPOLATION AT 


TIME 10.0: 





EXTRAPCLATICN AT TIME 11.0: 

VKTS=450.0 DEG=-10.0 ALT=3001.2 DTT=2520.0 DRT=2474.3 
EXTRAPCLATICN AT TIME 12.0: 

VKTS=450.0 DEG=-10.0 ALT = 2869.9 DTT=227:>.8 DRT = 2404.9 



OOWNRANGE TRAVEL FOUND BY EXTRAPOL AT IOM= 2456.6 
TIME OF RELEASE FOUND BY EXTRAPOLAT I0N=1 1 . 26 
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3 


JC3^T3ir ;{< 5}c :^c :{c 3}c :}c 


sp^jc^c^c^csjc sjcsjcsjc^s 


:{c :?c3;c5{c :{c5;c :^C5J: 3{c .'Is :Jc sjc s': 


5j« 




INPUT 


DATA; 




❖ 


VKTS = 


400. 00 


DTNAV= 


0.200 


5{^ 


XAT = 


5.00 


DT3AL= 


3.000 


Sic 


ALT = 


4000. 0 


DTE1 = 


0.002 


s!c 


OEG= 


5.0 


DTE2= 


0.002 


>;« 


TIME = 


0.0 


DTE3 = 


0.300 


s|c 


YT = 


0. 0 


IDNO= 


11 


4c 


TC = 


18.31 3 


TMV = 


3.000 


sjc 


ATCL = 


5.0 


RLIM= 


0.5 


❖ 


ALI K- 


200. 0 


DTE4 = 


0.004 


=Jc 


DTE5 = 


0.005 


DTE6 = 


0.005 






^ «V. «.V •«•» «U «U <JU «■<. «l^ «■<• <.'<^ 

•'!» <^* ^ «>'» >f» ■TT •K-' ^ 'I* 'f* ^ ^ ^ *&■ *>' ^r' ''■*• ^V 'H^ ‘•p 'P ^ *V‘ 'P "T* •»■• 






4c 




PRELIMINARY COMPUTATIONS; 


4c 








4c 




AT TIME= 6.004 ; 




•jt, 

'p 




XAT= 4.35 ALT= 


4346.1 


4c 








4c 

4c 




THE TIME NOW IS; 


6.006 


'T> 




AT TIME= 6.004 ; 




4c 

ys 




XDR0P= 1.90 




•nr 

•IP 

* 




THE TIME NOW IS; 


9.003 


V 




AT TIME= 9.008 ; 




4c 




XAT= 4.03 ALT= 


4513.6 


4c 

3ic 




THE TIME NOW IS; 


9.010 






AT TIME= 9.008 ; 




4c 

V; 




XDR0P= 1.89 




O' 

JU 

nr 

4c 

O' 




THE TIME NOW IS; 


12.012 




AT TIME=12.012 ; 
XAT= 3.73 ALT= 


4677.5 


4c 

4c 

«■. 

•'p 

«u 




THE TIME NOW IS: 


12.014 


O' 

4c 

4c 

4c 

4c 

4c 

4c 




AT TIME=12.012 ; 
X0R0P= 1.87 






THE TIME NOW IS: 


15.016 




AT TIME=15.016 : 




4c 

•jt 




XAT= 3.43 ALT= 


4837.6 


4c 

±r 




THE TIME NOW IS*. 


15.018 


•*r 

4c 




AT TIME = 15.016 *. 




4c 




X0R0P= 1.85 




4c 

4c 




THE TIME NOW IS: 


18.020 


O' 

^ 3{: ^ 4c 5|x sj: 


4c4c4c4'4c4c4c4c4c'!csr4c4'4c4*4c 4c4c4c 


; * :{c5;< * 5 |c>:j J|. t ~ ❖ ' 


4C4C45 

wV 


“•oC 4c 4c 


31: 2lc 5^: ijc yt y^ 3}C 3jc ;|c sic 51; 2{C 3{c >;« >lc 5l< av's :{s sjc 3lc :Jc :^c ;^c 3ls 5|: yc 3{t ;!? 


4c 


RELEASE POINT; 


1.685 NM 


4c 


HORIZ. OIST. TO TARGET 


4c 


TIME 


: 33.904 SEC 


4c 

'<4> 


A/C 


ALT ITUOE 


; 5758.9 FT 


sp 

4c 




THE TIME NOW IS: 


18.325 



>5c>!c :(£ s;? ?;c ?:x :{: ;Jo;c » >)c jjs :<c 5.V 5jj 5jc >:c ?}: Jjc ^ 5jc >{f ^ s^c 5^ :Jc 5;s ^ 3^ 5[t :{< ?{c sic 5^c 
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-)f i;- a 

}t -ti- -M- *■«■■«■ if -K- -»f * -i^ •!$ it- •»• it •«■■«•* 4t •»•-«■•!«••!<• -it *•:(■■» ^ -iMt •«■ ^(- -;{•>-» -M- •»•»• ^Mi• -it- ■«■ iJ- •>,}«• -K- •){• ^S- -K- ^(• -« -5^ * 



019 OZ? 03r 0".3 



A 



A 



+ + + + 



X 



cn 

n 

Cj 






CCS 



on 



02'i 



030 



X-5CRLF^-B.00E-^00 UNITS INCH. 
V-SCRLE;---9.00E-01 units inch. 



CURUES OF KRC RND XDROPX'S- 



TIME 
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5^: : 



❖ 

❖ 

5!' 

❖ 

❖ 

❖ 

3!< 

❖ 

5{C 



r :<C5^: 



% «Y^ ^ ^ ^ ^ 



:;c^:^t^35:y^ 3|i:;r5i;:;c3{c a;::*:::f 3}C3{C 5;c3{c5!c:<c5{ci;:a;: : 



AT TIME=18.325 : 

XAT= 3.10 ALT= 5009.6 

THE TIME NOW IS: 18.330 

AT TIME=18.325 : 

XDROP= 1.83 

THE TIME NOW IS: 21.332 



RELEASE POINT: 

HQRI2. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



1.690 NM 
33.908 SEC 
5759.1 FT 



* THE TIME NOW IS: 21.832 

-r- 

%*' ***' V' '>*' V' ^ '■V 

^ 'r n' ^ ^ ^ 'r ^ 'f" 'r- “v- ‘T‘ -r *%' ^ .y. ^,x 



❖ 

?}f 



❖ 

>{= 

❖ 

51c 

❖ 



«ju *<« ^ 



.JL. .JU W/« «L> «JU ^iC. <4^ .JU >(■. 



«. ^ *fS 



* ^ 



O.^ >1.. 'O' <4. «A. *'*' V' «*•.%(. >l« JU V' 'V ^V V" V' <4^ .4. «■’' % 

■nr 'r 'I' -Y* ■nr ^ -'•' 'r ■«-r "» ^r ■'r ^ 4j. ^ .v nr ' 



55^ 

■.ju 

->•* 

❖ 

❖ 

5{<^ 

❖ 

❖ 

5!c 

❖ 

❖ 

3{C 

n{c n' 

<JU ^V ^V ^V 

^ ^ ^ ^ ^ ^ ^ ^1% ^ ^ -i^% ^ ^ ^s 



AT TIME=21.832 : 
XAT= 2.77 ALT= 

THE TIME NOW IS: 

AT TIME=21 .832 : 
XDR0P= 1.80 

THE TIME NOW IS: 

RELEASE POINT: 

HORIZ. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



5187.0 
21. 837 

24.839 



1.689 NM 
33.952 SEC 
5761.1 FT 



THE TIME NOW IS: 25.339 



❖ 



* 

* 

5l« 



5|: a}: 5 ;; 5jc 3jc 5[i 5j: 5{c :^c :Jt 5*s ?Jt :{?5jc ^{« 5 ;$ y^ jjes^c sjc 3^ 5;x 

3:^ 

❖ 

3:^ 

❖ 



^ 0 



0 <%U «!.# ^0 ^0 



AT TIKE=25.339 : 
XAT= 2.44 ALT= 

THE TIME NOW IS: 

AT TIME=25.339 : 
XDR0P= 1.77 



5359.4 

25.344 



THE TIME NOW IS: 28.346 



RELEASE POINT: 

HORIZ. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



1.689 NM 
33.956 SEC 
5761.3 FT 



❖ 



« 

3r 

❖ 



3r 
❖ 

3{C 
❖ 

3lC 
❖ 

❖ 

^ 3{C 

« THE TIME NOW IS: 28.84b ^ 

5{C ^ 

:Cc 3:< a^s ijr 5jc 5}; :^c ^ 3{C 5^c alt 5^ ^ 5ji 3;c 5;c s[c :Jc 5jc :}: :^c Jlc 5^C 5^ 3^: 5^ :}c 
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-:<• •!(• * -Si- -K- 4M!- W -it- 



:{?3;f:^t:{?3j<X^=r3;s>!«5r^3{c:<c:{t5}c5jc3;c3{?5;c:{c:{s :^C5}c:{c5;r ^5jc5;c5jt:;i:{c:{?5^i^^4ci^5|c;}c 



AT TIME=28.846 : 
XAT= 2.13 ALT= 

THE TIME NOW IS: 

AT TIME=23.846 : 
XDROP= 1.74 



5526.6 

28.851 



THE TIME NOW IS: 31.853 



RELEASE POINT: 

HORIZ. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



1.689 MM 
33.955 SEC 
5761.2 FT 



THE TIME NOW IS: 32.353 

V. 

^ *r* •>*■ n' ^ ^ ■nr* 'ir 'i- -r 'r '<* ^ o* ^i' 't* 'c •>' .t' '••* ^ •'i'- 'C 'n 



a. ^ 'V. '.A^ wUr «v «f. >v ’>*' .A, <..u .<« .,1. -A. »t. vV Vr Vi' «*' V' Vr ^ 

-IT «•' ■'t' -r* •%' '■•' ••r '•i» -’r* »»> T* 'V '/• •nr •nr ^ -nr •4'- •n' ^r* •'r ^ a- ^ nr nr 

NOT ENOUGH TIME TO COMPUTE. 

^ »». wt. ..c. %i, j.. .V «v -a. u, H*. y,. y- -Jf »i.. «t. •/.. a. O; v. y. ou <a. ^ ju 

nr "r nr n- nr ^r n' 'r 'r 'r n- -i- n- *r -r 'r ^r •>' •'r n* -r n' ^r ^r *r n* 'r 'i* n* n^ -r nr n' 'i' a,. 
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•}?••«■ -Ji- •«• -JJ- •>> -Jt- ^ -M* -M- -K- 











INPUT 


DATA: 




VKTS = 


400.00 


0TNAV= 


0.200 


XAT = 


1.90 


DTBAL= 


3.000 


ALT = 


4000.0 


DTE1 = 


0.002 


D£G= 


5.0 


0TE2 = 


0.002 


TIME = 


0. 0 


DTE3 = 


0.300 


YT = 


0.0 


I0N0= 


11 


TC = 


18.31 3 


TMV = 


3.000 


AT0L = 


5. 0 


RLIM= 


0.5 


ALIN = 


200.0 


0TE4= 


0.004 


DTE5 = 


0.005 


0TE6 = 


0.005 


:3{c 5}cj{c3;c5;c::^c3{ci*ci:c3{c3{:::c JlC2}«5r 


5{c 2jc^5}c 5{C5|< 


:JcjJc:J«3*;5*cs;f:^s5;c5}c 


p 

^ 


%V 

^ ^ ^ ^|S ^ ^ 




»c- oA. gu V. g ' • 

nr nr nr nr n' nr ••' nr "r 


NO 


SOLUTION FOR THESE 


DATA: 



f ^ njt^ ^ -j, ^ ^ •x- -j, ^ ^ «.V ^ Uc *t« ^ gi. V. wu o# Uf s*( gu gu «u gu Of 

■ ^ ^ ^ nr* 'i' V nr* '■«'* *'1' ■nr* <-,» nr* ^ ^ 'f* nr t- *■#* -r n*> »,■• nr nr *’r n* n' n- n^ 
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-jj- -K- ^ ^ ■jj' ^ -jf- 




mm 





:Jc:{s3{i:|csJ:35r?;r2;s5;x2;c5}c:;c5i|r:^r:{rs;s:{c:i«a;c2;r:{r 


%.V ^ sV 

^ 3,^ 


:|r sfr >;? ajr y.r 5}c :{r jjr sf: ijr 


T- 




INPUT 


DATA: 






VKTS = 


400.00 


DTNAV= 


0. 200 




XAT = 


5.50 


DTBAL= 


3.000 




ALT = 


4000.0 


DTE1 = 


0.002 




DEG = 


0.0 


DTE2 = 


0.002 




TIME = 


0. 0 


DTE3 = 


0.300 


❖ 


YT = 


0.0 


IDN0= 


11 




TC = 


18.313 


TMV = 


3.000 


❖ 


ATOL= 


5.0 


RLIM= 


0.5 


❖ 


ALI M= 


200.0 


DTE4= 


0.004 


if. 


OTE5 = 


0.005 


DTE6 = 


0.005 


if if if.-:, 


|c^>^5!i5!r:{;y^ 


ififififififif if if if if if if if iiif if if ifif if if if if if if if if 



2 ^ :<c ^ ;)c ajt ^ 5jc ^ sir ^ 5}C ^ ^ ^ ^ 






tf 


PRELIMINARY COMPUTATION 




AT TIME= 6.004 : 




if 

•JU 


XAT= 4.03 ALT= 


4000.0 


■nr* 

if 

if 


THE TIME NOW IS: 


6 . 006 


AT TIflE= 6.004 ; 




if 

-A> 


XDROP= 1.72 




•nr 


THE TIME NOW IS: 


9.008 




AT TIHE= 9.003 : 




if 


XAT= 4.50 ALT= 


4000.0 


if 


THE TIME NOW IS: 


9.010 


OU 


AT TIME= 9.008 : 




5jC 


XDROP= 1.72 




if 


THE TIME NOW IS: 


12.012 


if 


AT TIME=12.012 : 




if 


XAT= 4.17 ALT= 


4000.0 


if 

if 


THE TIME NOW IS: 


12.014 




AT TIME=I2.012 : 






XDROP= 1.72 




if 


THE TIME NOW IS: 


15.016 


if 


AT TIME =15. 016 : 




if 


XAT= 3.83 ALT= 


4000.0 


if 

❖ 

if 


THE TIME NOW IS: 


15.018 


if 


AT TIME=15.016 : 




if 

•i* 


XDROP= 1.72 




if 


THE TIME NOW IS: 


18.020 



❖ 



;Jc:if s^is’^sjcslr 2}c5|e sjcajc 2jc3ic sir r|r 2*sy< sjcycsjrsjrslcs'^s^^^rsjcsjcsjssfrsjrslrslrsjcsjcslcsltslcskslrsjrslr 

sjcy.rsirsicsi: :{r sjc sjr sjc s^c sjt yr s,^ sjc s{r :|r s;r :jr s{r s{r sjc sjc sjc sjc :{r sjc s^c sjr sjt 2^ =J= =r ^ 55 ' 



* RELEASE POINT: 

« HORIZ. DIST. TO TARGET: 1.720 NM 

« TIME : 33.944 SEC 

’i' A/C ALTITUDE : 4000.0 FT 

ir 

^ TFE TIME NOW IS: 18.325 

❖ 



j!s :{! 3 f 3 ^:}c 3 i:j; 55 ^ 



^ ^ ^ ^ ^ ^ %v ^ ^ >V ^ ^ ^ ^ ^ ^ 

>1% ^ >1^ >!«. ^ J^%. ^ ^ -T(^ ^ y* 
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-iS- ■«■ * -a- -K- * it ■)(•■«■ i{- •«••«• -x- ii- -j;- j<. •*(•■)(■■!{•■!{•■«• -a- ^t- i?- -if- -jMj- ->«• H{- -M- ■«■«. 4f. -if- ■«■-;?•■«• -if- -;t it it it it it it •»• it it it it it it it it it it it it it it it it it it it it it it it 



003 013 027 030 O^G OGa 0<33 



A 



A 



+ + + + 

X 



^0 



COG 



01 ? 



oie 



02-1 



030 



X-SGflLt>=6.00E+00 UNITS INCH. 
V-SCflLE:--9.00E-01 UNITS INCH. 



CURUE.5 OF KRC RND RDROP.US. 



TIME 
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« -it -K- 4J- -tut- -M- ■>{•■«••«■ -M- ■!!• ^'s- -;(• I'i- ■«• -it •)(■ -:,<• •}{•■»•■!!••«■ ^s- «-•«• ■» •jMi- 






AT TIME=18.325 ; 
XAT= 3.46 ALT= 

THE TIME MOW IS: 

AT TIME=I8.325 : 
XDROP= 1.72 



4000.0 

18.330 



THE TIME NOW IS: 21.332 



RELEASE POINT: 

HORIZ. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



1.721 NM 
33.978 SEC 
4000.0 FT 



THE TIME NOW IS: 21.832 



^ ^ %iV ^ ^ 



OU 






^ ^ :{c 5 ^ ^ ;^c ;Jc 2{c ?ic 5 ’^ :{c A :JO.V 5^ s,*? 5;; 5*? >}e ^ ^ 5}: 5|c >J: s;j jjt 2^ 55? :^c 



AT TIH6=2l .832 : 
XAT= 3.07 ALT= 

THE TIME NOW IS: 

AT TIME=21.832 : 
XDROP= 1.72 

THE TIME NOW IS: 

RELEASE POINT: 

HORIZ. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



4000.0 

21.837 

24. 839 



1.723 NM 
33.992 SEC 
4000.0 FT 



THE TIME NOW IS: 25.339 

Ogr ^ ^ y. %JU %ir %X^ y.r ^ OU OU ^ V# %V ^ ^ ^ ^ ^ ^ i 

>1^ ^ 






AT TIHE=25.339 : 
XAT= 2.68 ALT= 

THE TIME NOW IS: 

AT TIME=25.339 : 
XDROP= 1.72 



4000.0 

25.344 



THE TIME NOW IS: 28.346 



RELEASE POINT: 

HORIZ. DIST. TO TARGET 
TIME 

A/C ALTITUDE 



1.722 NM 
33.996 SEC 
4000.0 FT 



THE TIME NOW IS : 28. 846 
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-M- ^ -5:* ^ * -K- •«- -M- -M- ^ -K- ^ ^ -Ji- -M- ^ -M- -){- -JJ- -M* -K- ^ -Jf -Jt -Jf -M- ->f ->f ^ 4^- > 4f •«■ 



-if- ■5«’ ■Sf’ -M- V- -it 



ijc >Jic 3|<:^c:{c4sa5c5}c:{s:*£V5;< 



AT TIME=2S.846 : 

XAT= 2.29 ALT= 4000.0 

THE TIME iMOW IS: 28.851 

AT TIME=23.346 : 

XDROP= 1.72 

THE TIME NOW IS: 31.853 

RELEASE POINT: 

HORIZ. DIST. TO TARGET: 1.723 NM 

TIME : 33.995 SEC 

A/C ALTITUDE : 4000.0 FT 

THE TIME NOW IS: 32.353 



* jJ: :^c J|: s>< :!c 5|1 * 






^ wU ^ 

% ^ ^ ^ *nr 



NOT ENOUGH TIME TO COMPUTE. 



^ :4c s;« sjt :{c J(< ;|c 5jc y,c :(c J,'; ;)c ;^s ajc 5|s 5;^ :<c 5^ 3?: ^S: jjt :{; :jc jjc 5^: 5 
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•il- i{- it ^i• ;<• W ■»-;!• if -K- ■«■ 44^ •?{• -M- 4$ ■«■■»• ^ •»• ^(• ii- ■«• -M- 



3|C >|s y,j ijc 5|; :^£ 5}; ^ >;c ^ :}: 5^ 3*t :Jc ;;s 3}t 3>V 3^ s;c :jc >}: a;c 

❖ 







INPUT 


DATA: 






VKTS = 


400.00 


DTNAV= 


0. 200 




XAT = 


6.00 


DTBAL= 


3.000 




ALT = 


18240. 0 


DTE1 = 


0.002 


❖ 


OEG= 


-15.0 


DTE2 = 


0.002 




T IME = 


0.0 


DTE3 = 


0.300 




YT = 


0.0 


IDNO= 


11 


❖ 


TC = 


18.313 


TMV = 


3.000 




ATOL = 


5.0 


RLIM= 


0.5 




ALI M = 


200.0 


0TE4 = 


0.004 


3fC 


DTE5= 


0.005 


0TE6 = 


0.005 




■"r -V •'If' *T* 


3|:5t;yt3!!;):3;c*5;t3j«:{c 


:{?:{: 3{j 5^ :{: >|5 jJj 


«<t5)cs;;:;«3:::{cs:;: 




>lu OU <%IL» %IU 

^ ^ ^ ^ ^ ^ ^ 


ijs jjc ' 



■j^ 

^f' 

5l« 

>1^ 



❖ 

s5c 

❖ 

❖ 

❖ 

-T- 

aj: 

❖ 

3{^ 

O' 

>;« 

>!c 

or* 

* 

« 

« 

❖ 

Sie 

* 

* 

« 

* 

* 



PRELIMINARY COMPUTATIONS: 



AT TIME= 3 
XaT= 5.67 



004 

ALT= 17698,3 



THE TIME NOW IS 

AT TIME= 3.004 
XDR0P= 3.11 

THE TIME NOW IS 



AT TIME= 6.008 
XAT= 5.31 ALT= 17123.8 



THE TIME NOW IS 

AT TIHE= 6.008 
XDR0P= 3.20 

THE TIME NOW IS 



AT TIME= 9.012 
XAT= 4.94 ALT= 16516.5 



THE TIME NOW IS 

AT TIME= 9.012 
XDROP= 3.26 

THE TIME NOW IS 



AT TIME=12.016 
XAT= 4.55 ALT= 15876.3 



THE TIME NOW IS 

AT TIME=12.016 
XDR0P= 3.32 

THE TIME NOW IS 



3.006 



6.008 



6.010 



9.012 



9.014 



12.016 



12.018 



15.020 



j:c:;s 55: 4: Jj: 3}:^ 

* RELEASE POINT: 



* HGRIZ. DIST. TO TARGET 

* TIME 

« A/C ALTITUDE 

* THE TIME NOW IS: 

* 

:<5 3jt :{!:{: 3js:;c>>:5|«:{;^:{::<!5}:3{r;?;3t;;!c 3^3}: >;e3;r5;£i|;:<t:<c3!5*3;x:(t<c 



3.357 NM 
20.314 SEC 
13937.2 FT 

15.325 
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# it * •«• -Jf ■«• -e? * *•«•■!<■ -t;- •»• -K- -M- % -:t- 3{. 3> ^ ^ 3}. ^ ^ ^ 



wo r,tO XO Z2G STQ CCC 



IT 

a 



A 



A 



A 



A 



+ 



+ 



+ 






X 




01^ oxe 021 030 ' 



■^-SCRLE-6.00E+00 UNITS INCH» 

y-scnLs.---9.0Qc;-oi units inch. 



CURUES OF RRC RHD ^^DROPJJS 



TIME 



96 



-K- it -K- -Jf- it- iS- -K- -tM;- -M- 



^ s|s :{; :{t 5{c ^ alt :^c 3|c 



AT TIME=15.325 : 

XAT= 4.09 ALT= 15133.1 

THE TIME NOW IS: 15.330 

AT TIME=15.325 : 

XDROP= 3.35 

THE TIME NOW IS: 18.332 

RELEASE POINT: 

HORIZ. DIST. TO TARGET: 3.353 NM 

TIME : 20.358 SEC 

A/C ALTITUDE : 13926.3 FT 

THE TIME NOW IS: 18.832 



«V *A. V# -.V >*» Vi' V' VU w 

^ ^ ^ <rp ^ ^ ^ ^ 



OU ~X, -Ji, >V ~V -Jl- -JU Vf 'V 'V -.Jy •‘J'' J- -V -JU U- -a, Or 

^ ^ *Y* "j* 'o 'I' ^ ^ 'T* .t' ^ ^ ^ n'* *»* '»' 'r* *v~ ^ 'I* 'r ■'r •'»* *1' 'i* 

yt 

i NCT ENOUGH TIME TO COMPUTE* 

5^C 

aj;a*sa;:5{ca;ca5ca;ca;:a^::{t:jcajcaj;a,'ta;t;'/;;cajta;sa;<ajca;sa{s:{ca|caj:a;tajcajca;:ai;a*:a|c:{t5;tajc3'<a;tai:a;t 
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a it- -it- it- * * it- if- if- -K- if- it- if- -»- if- it- if it- it- it- it- it- if- -«- it- 



RUN NUMBER ONE^ 



OF A RUH^ 

Tl-lt \'mm H lAFlF OF AIRCRAFT POSITIOHS FOR 4 DIFFERENT RUNS, 
USING THE HfiHf: HKS? UHREIARDFH, )DH0=16. 

ENTER A RUN HUMH^R FROH 110 4. 

KUH=1 



INPUT iCAPuH ili NUHHER AFTER 
JUNCi HAS Ki HE IROH 1 TO PS. 

IF mi NANI TO fiUn ,TYi’l CuHTRui C. 

HiHU= 10 



EKECUTiOH HUE HfGlH HllFH CIDCK-O 



AT TIHE: 01.0 SECOHHS 

SPEED= 397.00 KNOTS 

[DUE AHGLE= -38. OS ULGREFS 

ALTITUDE^TPOG.O? FEET 

OISTAHCE TO TARGET^: 39S7.0? YARDS 




> 
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AT m\i - srcoHris 
SPEE[ 1 = m.bc' KHDT? 

[ilur ftHElE^ -23M HEGPEEE; 

HLlJiUnr=GE.Pj.BE: IEE7 

[ilGiAHCE Ki lARGH:^ JGGj.G-l YARtiG 



Al DHh GG.H sfGuHiiG 
OI.H) KHOls 

[ilUr AHGil: vH.HA HIGkiiA 

Ai.]ilUDh^GG;<P.H? 11 n 

LilAlAHCi lU lAKGiT: XH'i.GG VARHs 



A1 liiih AlCOHliA 

APFUir KHiils 

DIUF AHGl.l^ liiGRllA 

Aliniiiir^“.HG.G3 im 

DiGlAHGL iO lARGl V- YAkHG 



START TO f.OHRUlE Rl 1 1 AGE ROIHI 
THE TIME HOW 10= 00.0 01 COHdO 

tv 
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STfjRT TO COIiPUTE PELEOSE rCHHT 



THE TIHE HOW IS^ 60.9 OECOHDS 



IHi: TIHE HOH ]$: 16.-1 OECONDO 

mim PiiiHi: 

lIHbjH.? OICOHDO 

[ilOlHHCr ID iiiPDlV 10D-1.6D YARDO 

im RAIM iRAUn = 10?6.H0 YARIiO 

FRUH THE lABLl OF DAiA^ 

AT 11 HE: iH.V OEDOHliO 
OPmi= ^76.60 KHOlO 
[i)6t AHDir^ -76. 6? HLDRllO 

Anmi[iL^ 70 -i 7 . 6 i fm 

DIOIAHCE iO lAROn:: )0(.7.6(. YAFdiO 



FOR Tino POOniOH: 
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I 






f:[LEAS{: pnjlfp 

Sl uDlliiA 

DliiiAiici: id inkii'M ]m.% YAkUd 
DOhH RAHGL lRAUn^jf!?A.HA YAkliA 

FkOH THl lAkn OF liAlA: 



AT TIHE^ JH.? siCOHliK 

OPEED= ^?8.eH KHOiO 

[ijiJE AKGLE= -2b M liEOkHO 

ALTjTl!DE«OrY.fij FEET 

EDSTAHCE TO TARGET:^ 10G?..eG YAkHO 



FOR TH)0 POSITJOH^ 

EiOHH RAHGE TkA0EL^100?.6P YAkltO 



PEG) ill HG OF A RIHT = 

THE PkOGkAH HA::: A TAHl.E OF AIRCRAFT POOITIOHO FOR 4 DIFFERENT RUNS, 
U::;]HG THE HOHH EiKOP UHRETAREH D, 1DHO-- ID. 

ENTER A RUN HUHP.I R IRON ) TO 4. 

l.;liN=^^ 

0 
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RUN NUMBER THREE: 



BEGIHIHG OF A F:UH = 

THE PROGRAH HAS A lABLE OF AIRCRAFT POSITIONS FOR 4’ DIFFERENT RUNSi 
USING THE DOHA 11KOP UHRETARDED, 1DN0=10. 

ENTER A RUN HIIHBER FROH I TO 



INPUT HEAPON ID HUHBER AFTER 
IDHO HAS TO BE FROH I TO 20. 

IF YOU NANT TO QUIT JYPE COHTROL-C. 

IBNO= 16 

EXECUTION HILL BEGIN HHEN CL0CK=6 

AT TIHE: 61.6 SECONDS 

SPEED= 299.es KNOTS 

DIl'E AHGLE= 66.66 DEGREES 

ALTlTUDE=1999.eO FEET 

DISTANCE TO TARGET= 3S32.6? YARDS 



AT T1 

*1 
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AT II HE = 63.6 SECOHliJ; 

SPEED= KHOIS 

[HUE flHGLE^ UU.UU HEGkEE3 
'ftLTnUDE=I99S.6f: FEET 
DlSTftHCE TO TARGET^ 3)90.0:^ YAkUS 



AT T1HE= 65.0 SECOHDS 
6PEED= 2:-5$.65 KH0T6 
[HUE AHGLE= 66.06 DEGREES 
ALTniiDE=I3SS.6S FEET 



[iISTAHCE TO TARGET^ ESG5.6I 



YARDS 



AT TIME: 6?. 6 SECOHDS 

SPEED= 2SS.65 KKOIS 

DIUE AHGL[:-- 66.66 DEGREES 

ALTITHLiF-ISSS.66 FELT 

DISTAHCE TO TARGET'- P53P.63 YAFxDS 



START TO COHPUTE REF EASE F'OIHT 
HIE TIHE HOH ]S= 66.0 SECOHHS^ 
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START TO CCiHPUTE RELEASE POINT 
THE TIME HON 1S= 60.9 SECONDS 



THE TIHE HON IS= lO.j SECONDS 



RELEASE POINT: 

TIHE::! j. 6 SECONDS 

DISTANCE TO TARGET::jSf.?..OC YARDS 

DOWN RAHCE TRi!liEL::!S60.0D YARDS 



FROH THE TADLE OF DATA: 

AT TIHE: n.6 SECONDS 

SPEED= 295.65 KNOTS 

DIUE AHGLE= 66.66 DEGREES 

ALTITllDE=1999.eS FEET 

DISTANCE TO TARGET^ 1865.6? YARDS 



FOR THIS POSITION: 
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RELEASE PCI] HI: 

TlHE^n.6 SECdlinS 
filSTAHCE TO TARGET^) 063. OS YAROS 
mm RANGE iRAUELnOCO.OG 



EROH THE TAPLE OE HATA: 

AT TIHE: n.O SECOHDO 

SPEED= 299.60 KNOTS 

DIVE AHGLE= 66.66 DEGREES 

ALT}TUDE=]999.eO FEET 

DISTANCE TO TARGET^^ 1065.6? YARDS 



FOR THIS POSITIOH: 

DOHH RANGE TRAUEL=1066.65 YARDS 



DEGINING OF A RUN: 

THE PROGRAH HAS A TABLE OF AIRCRAFT POSITIONS FOR 4 DIFFERENT RUNS, 
USING THE BOilB HK02 UNRETARDED, IDKO=ie. 

ENTER A RUN NUHBER FROIi I TO 4. 

RUN:^ 



106 



-5«- -if- -a- -»■•!«■■{} 4?- -it -ii- -;{• •!«• -If- -if- -If -If •«■ -If -If -If -It -If If ■«■ -K- 4f 4f -If -If -if a- -If 4f -If -If •«• -if -«■ 4f 4f 4f ■«• -if ■»• -Sf -if 4f -If -If -If -If 



:*< :^i 5jc sjc 5^ ?}c :ijc 5}t 3 ^ ^ 3|s 3}c ^ 3(s :(c 5{? a^c y^' j|c 3{s 3{c 3 ^ a|s :^c a;c >Jc 2{c :^c a^c ;{c a;? 



FORTRAN SIMULATION 

3{=a:<:$ca{t 3{? jjsa^ a^:^c;:<yc3,'',5|« a;j3:c ajc 3^? 3 *: a{: j;< 5|c iN i}C3^ :^3{i ajt^ 5,^5jca|o;c:{c3{c :fc a^calt a^c ajca^c at; >5c 

3jc;i3}c2{c5,'s5jc 3{c ajs aj? 3 ^ j}c 5^< 3{c ajc sjc :^s a{t Jjc ;{i aj: a^c =fc a^c ;^c 

MODULES* FUNCTIONS: 

MAIN : GOVERNS THE LOGIC OF THE WHOLE 
SIMULATION. 

INIT : PERFORMS THE INITIALIZATION FOR EACH 
PARTICULAR RUN. 

ICHECK: CHECKS IF THERE IS SOLUTION TO THE 
PROBLEM. IF SO, THEN CHECKS TO SEE 
IF THERE IS TIME TO COMPUTE AND 
FINALLYtIF THE A/C WILL 3E INSIDE 
THE DANGER ZONE AT TIME OF IMPACT. 

DSPLAY: OUTPUTS THE RESULTS. 

POS : CALCULATES THE AIRCRAFT POSITION AND 
UPDATES ITS AIRSPEED. 

6AL : INTERFACES THE MAIN MODULE WITH THE 
BALLISTICS MODULES. 

SETCAT: INITIALIZATION PROCESS FOR BALLISTICS 

COMPUTATIONS. 

DECODE: SET PARAMETERS ACCORDING TO WEAPON 
SELECTED. 

TPAJ : CALCULATES THE DGWNRANGE TRAVEL 
OF SELECTED WEAPON. 

RUNGE : AUXILIARY MODULE Or TRAJ. 

DERIV ; AUXILIARY MODULE OF TRAJ. 

INTER : COMMANDS THE INTERSECTION SEARCH 

PATTERN FOR A/ C AND OCWNRANGE TRAVEL 
CURVES. 

COMP : DOES A STEPWISE COMPARISON BETWEEN 
THE A/C AND DOWNRANGE TRAVEL CURVES 
LOCKING FOR THE INTERSECTION. 

ORTFIT: EXTRAPOLATES VALUES FOR THE A/C AND 
DGWNRANGE TRAVEL CURVES. 

^ 5 |: :{: sjc^!: :{{ j.'c ^ .-[e * sjc 5 ;i >)e s): sfc ait ^ 3^ j}: :>:!{: :{t ^ 5 ^: aiiajt :{t a|t*ai:a}::!t aic a|f 



VARI AB 
VKTS - 
HV 

HVA - 
VV 

VVA - 
XAT - 
ALT - 
TIME - 
F T I M E- 

HTIME- 
DTNAV- 
OT8AL- 
DEG - 
YT 

ST IME- 
ABV - 
SABV - 
IDNO ' 
XAC - 
RTIME- 

XDRCP- 

DTNAV- 

DTBAL- 



LES: 

AI R SPEED OF A/C. 

HORIZONTAL SPEED OF A/C. 

PREVIOUS VALUE OF HV . 

VERTICAL SPEED CF A/C. 

PREVIOUS VALUE OF VV . 

HORIZONTAL DISTANCE FROM A/C TO TARGET. 
ALTITUDE OF A/C. 

REAL TIME CLOCK. 

SAVED VALUE OF TIME FOR THE DSPLAY 
MODULE . 

PREVIOUS VALUE OF TIME. 

TIME SPENT BY NAV COMPUTER. 

TIME SPENT BY BAL COMPUTER. 

DIVE ANGLE OF A/C. 

TARGET ALTITUDE. 

STARTING TIME OF SIMULATION. 

ABSOLUTE VALUE OF DEG. 

SIN OF ABV. 

IDENTIFICATION OF WEAPON. 

ARRAY OF A/C POSITIONS. 

ARRAY OF TIMES CORRESPONDING TO THESE 
POSITIONS. 

ARRAY OF OOWNRAMGE TRAVEL VALUES. 

TIME SPENT BY NAV COMPUTER FOR THE 
A/C POSITION CALCULATION. 

TIME SPENT BY BAL COMPUTER TO CALCULATE 
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-Jf-}f-tf-3--if-if4f4f-if'K--!f->f-»--}f4f4f-5f->f-»f4f-!f-»f-»--«--»f4f-«--K"if ■B-4f-!f-if-:f-}f-)f-jf-!f4f4f4f-!f4f-tf-!f-»--5f-if4f-;f-!f-if-«-«--!f-if4f-K-4Hf-5f-{Mf4f-Jf -ff-Jf-Sf-Jf-^f 



«••»{• if’ -!«• »- -if -it -it •«■«•■«• ^s■ ^ -M- -M- ■»■ -jm- •JMf •» -M- -it 



THE DOWNRANGE TRAVEL FOR THIS A/C 
POSI TI ON. 

DTEl - TIME SPENT BY THE EXEC COMPUTER TC 
TRANSFER DATA FROM THE NAVIGATIONAL 
COMPUTER. 

DTE2 - TIME SPENT BY THE EXEC COMPUTER TC 
TRANSFER DATA FROM THE BALLISTICS 
COMPUTER. 

DTE3 - TIME SPENT BY THE EXEC COMPUTER TC 
COMPUTE THE RELEASE POINT. 

DTE4 - TIME SPENT BY THE EXEC COMPUTER TO 
EXECUTE CHECK NO. 2. 

OTE5 - TIME SPENT BY THE EXEC COMPUTER TC 
TRANSFER DATA FROM THE NAVIGATIONAL 
COMPUTER AND EXECUTE CHECK NO. 4. 

DTE6 - TIME SPENT BY THE EXEC COMPUTER TC 

SAVE AND RESTORE VALUES WHEN CALLING 
THE NAVIGATIONAL COMPUTER AND EXECUTE 
CHECK NO. 3. 

TC - 6>:-'DTBAL + DTE H-DTE2 + DTE3+DTE4+0TE6. 

TARP(2)- TIME AT RELEASE POINT. 

XARP(2)- DISTANCE TO TARGET AT RELEASE PCINT. 

TMV - TIME IT TAKES TO THE A/C TO START 
EVASION. 

ATOL - LIMIT ANGLE BETWEEN A/C PATH AND 
THE SIGHT LINE OF TARGET. 

RLIM - RADIUS OF A HEMISPHERE , INSIDE 

WHICH THE A/C WOULD BE IN DANGER 
AT THE MOMENT OF IMPACT. 

ALIM - LIMITING ALTITUDE FOR THE A/C. 



UNITS: 

DISTANCES - NAUTICAL MILES. 

ALTITUDES " FEET. 

ANGLES - DEGREES. 

TIME - SECONDS. 

SPEED - KNOTS. 

THE VALUES OF DTE I , DTE 2 , OTE3 , 0TE4 ,TMV , 
ATOL, RLIM AND ALIM ARE ASSUMED IN THIS 
SIMULATION. MOST OF THESE ARE DEPENDANT 
UPON THE TYPE OF WEAPON . 



^ ^ ^ ^ ^«V 

•'1^ ^ ^ •'r ^ ^ -nr* ^ ^ ^ ^ •'r ^ ^ ^ ^ ^ V -nn ^ ^ ^ -?r ^ 'r ^ -r* 'T^ 



^ ^ 5^; 5 ;? 5 ^ 5 >: ^ 3 ^ 5|c 3j: 5,'s ^ 3|c sjc j{: 5|c 3jc ;{c sjt 5^c sjc 



MAIN PROGRAM - IT SIMULATES THE 
OPERATION OF THE WHOLE SYSTEM. 



3}t 5|I 5!; 5*: jjt :{c ^ ^ sjc J|c 5j: ^ sf; ^ 5|c :Jt * 5jc j;,' 5<r sjc 5j! 5}C 3!; >|c ^ :{t # 



AN' , ' D 



XDROP, 



INTEGER«4 ITB( 12 ) /12=:^0/ 

REAL-4 RTB( 28) /28=!'0.0/ 

EQUIVALENCE ( T I T LE , RT B ( 5 ) ) 

REAL=P8 TI TLE( 12) /' CURVES 0','F XAC 
•VS. TIME'/ 

COMMON/ DSP/FT I ME ,XP,TP, AARP 
COMMON/ CHK/ ATOL , TC , TMV , RL I M , AL I M 
COMMON/ SAV/SHVA , SXAT 
CCMMCN/TAD/T ,X 
COMMON /CL K /TIME, ST I ME 

CCMMCN/ INI/SABV, HVA, VVA , HTIME, XAT,ABV 
COMMON/ AC T/VKTS, ALT, DEG, YT, IDNO 
CCMM0N/VEC/RTIMEI4) , XDROP ( 4 ) , X AC ( A) 

COMMON/ D T S/0 TNA V ,DTBAL, DTE I , DT £ 2 , DTE 3 , DT E4 , CTE5 , DT 
DIMENSION XARP( 2 ) ,TARP( 2) 



:{£:)! 3|t5!c:5: «5}c ){of: ){<;!! 3{t 3jc:{c5,'« :<c * ^ :{C3): 



INIT I ALIZAT ION. 
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^ -Jf •«* m -if ^ ^ -it ->t *5t *?t -Jt rc rr ^ -it ^ -W- "it ■«• -Jt > ^ it -it -it -it -M- 4t ^ -it -if *Jt -it -M* -Jt -it it -it ^ -it ^ 



ooo ooooo oooooo oooooo OO 



Xi J}: V *5)C5ic :|c 5|t 4: « j!i « ^ s|: A « :{5 ^ Jjc # V * 

16 CALL INIT 

IF (DEG. GT. 60.0) GO TO 17 
WRITE(6 ,2) 

2 FCRMAK » 1 • ) 

WRITE(6t3) 

3 FCFMAK///) 

4 FCRMAK/) 

WRITE(6 ,8 ) 

WFITE(6,5) 

WRITE(o,31 ) 

WRITE(6,12)VKTS,0TNAV 
WRITE(6, 14)XAT,QTBAL 
WRITE(6,13)ALT,DTE1 
WRITE(6 , 15)DEG,OTE2 
WRITE(6, 11 )TIHE,0TE3 
VjRITE( 6,30) YT, lONO 
WRITE! 6,33) TC,TMV 
WRITE (6, 32) ATOLjRLiy 
WRITE! 5,34)ALIM, DTE4 
WPiT£(6,35)DTE5,OTE6 
WRITE! 6 ,5 ) 

WRITE(6,S) 



31 


FORMAT! 25X, 


1 :;c t 


, 14X, 


• INPUT 


DATA: ' , 14X 


, '«^) 




12 


FORMAT! 25X, 

1 ' ) 

FORMAT! 25X, 
1 ' ) 

FORMAT! 25X, 
1 ' ) 

FORMAT! 25X, 
1 • ) 

FORMAT! 25X, 
1 • ) 

FORMAT! 25X, 
1 • ) 

FORMAT! 25X, 


1 :*c 1 


, 3X, • 


VKTS=' 


, F8.2 ,4X, • 


DTNAV=' 


,F8.3,4X, 


14 


t ^ ff 


, 3X, • 


XAT=* 


, F8. 2 ,4X, • 


DTBAL=* 


,F8.3 ,4X, 


13 


1 rjc 1 


, 3X, • 


ALT=* 


,F8. 1 ,4X,' 


DTE1=* 


,F8.3,4X, 


15 


f iY • 


,3X, ' 


OEG=* 


,F8. 1 ,4X, • 


0TE2=* 


,F8.3,4X, 


11 


# 1 


,3X, * 


T IME=* 


,F8. 1,4X,' 


DTE3=« 


,F8.3,4Xt 


34 


t • 


,3X, « 


ALIM=* 


,F8. 1 ,4X, • 


DTE4=* 


,F8.3 ,4X, 


30 


1 ^‘c • 


,3X, • 


YT = * 


,F8. 1 ,4X, • 


IDNC=* 


, 18,4X, »* 


32 


FORMAT! 25X, 
1 ‘ ) 

FORMAT! 25X, 
1 ‘ ) 

FORMAT! 25X, 


I y; • 


, 3X, • 


ATOL=‘ 


,F8. 1 , 4X, • 


RLIM=* 


,F6. 1 t4X, 


33 


» ^ 1 


• 3X, • 


TC = * 


,F8.3,4X,' 


TMV=* 


,F8.3, 4X, 


35 


1 0 . • 
* n' * 


,3X, • 


0TE5 = ' 


,F8.3,4X,' 


0TE6=* 


,F8.3,4X, 



1 • ) 

R=1 

ICHEKK= ICHECK!M) 

IF!DEG .GE. 0.0) T I M£ = T IME + DTB AL 

vV ^ vV w ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

^ ^ ^ ^|V ^ ^ ^ >1^ .»l» ^ ^ >1% ^ ^ 

3^5 3;c 

^ ICHECK SUBROUTINE CALLS BAL- UPDATE CLOCK* 



IF! ICFEKK .EQ. 1 ) GO TO 18 

:{;5i<^c3;sj!;5;t5!;X::ii5;t jJcjjt :j£5|t slss;^ :j:^< ijtslislj ^ j;-. <c*:(t sjt !|£5:<5!t * jf: 

* IF THIS STATEMENT IS TRUE, THERE IS NO * 

« SOLUTION TO THE CURRENT DATA. « 



K = 2 

ICHEKK= ICHECK!M) 

S.'s^t :{cy^ «;!c «:;t ;}: 

5jc 

* UPDATE CLOCK. 

xl*- x4iif x*^ xC V’^ VL* x*^ xV x^^ xW x^# x>* 

^ ^ -r ^ ^ ^ p,x *»,x ^4^ 



5j:5;J2p3{s5r3{c3}c3;c^>^>;;55c5^:}c:{::<s^5;c:(c5{;3{cs;c3,'<5;c^:fc:^c:{c>*c3{c:{c:?:>;c:i<i5c 

❖ 

❖ 

2,'C :^:{t :^s5;s 3;? ^ 550^ 3{C ;Jc :(« ^ :{f sjj 3|t :Jc>!c 5^ 5jc jjs 



T IME=TIf>'E + 0TBAL + DTE4 
IFdCHEKK .EO. 2) GO TO 18 



3|; j;t « :(r Jj: y"! y,:3f-:j(:{;*;Jt***3;tJt:^;)ts;<5!4yy^:<!:5!5i!c;(:5;s5y:it5|«si£5)t ** 

« * 
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oooonoo OOOOOOOOO ooooooo ooooooo oooor> 



23 



GET THE INITIAL FOUR POSITIONS OF A/ C AND * 

CORRESPONDING OCWNRANGE TRAVELS. « 

WRITE(6,8) 

WRITE! 6 ,5 ) 

WPITE(6 ,23) 

FORMAT { 25X ,'«• ,6Xt * PRELIMINARY CCMPUTAT IONS: * ,7X, ’*• ) 
WPITE(6,5) 

DC 1 1=1,4 
FTIME=TI,ME 



:JC5!: S|5 «**5!s5|:«,;i5;c 4: 3|r s'; « Jls 5<t# ; 

$ CALL PCS TO GET SIMULATED A/C POSITIONe 



: 3^ 5!« :^c 

T* 

C5|t 



CALL POS 
CALL DSPLAY! 1 ) 
WRITE! 6,5) 
RTIME! I )=TIME 
XAC! I )=XAT 



❖ 



UPDATE CLOCK. 



Vr <J(^ %V ^ 

>|k >1^ ^ 



-C» 

, a. «v a.. ^ 'jt.^ yt, u,. y^ y. Uf yu 

% ^|«w ,r^S 



TIME=TIME+DTE1 
CALL OSPLAY!2) 
WRITE! 6,5) 



y^ y. ..c y. yu ^ y< y.^ yo y. y. y. y. yu y. y^ y^ y. y . y. y. y. y, yu yu. y< y. y. ..u y. y« « .« y^ y^ ..t. y^ y^ y. y- «v «« 

jf. ^ Tf. jp, »P <.., ^ ^•c' 'r* ^ ■V 'r- 'V ^ ^ ^ •'•'*■ ■'•*■ "i' 'I' ''"* *’•' *<' '• '■*'■ "I' *■»' 

n< 

^ CALL BAL TO GET DOWNRANGE TRAVEL FOR WEAPON 
IF RELEASED AT TIME CORRESPONDING TO LATEST 
* A/C POSITION* 



5;< 'ff, * 






^;:{t >}cy^ ;|c :^?2;c 5^ ^ i;c 5{s 3^ s*; 3}: >|« ;|c jjc a;r 3}c sit s^c a}c 



CALL BAL 

XCROP! I )=X/6080. 

CALL DSPLAY!3 ) 

WPITE!6,5) 

s;: S^r^jlt ##5jt;;{:{:j!:j;5:fr!;t:{;#:^::^:5;c:{::(r:;f;;t*5jt**:{i::!::!5«5i::{t^«:(; sic 4: * s^slcsic sjc^, sic A s;c 
Hf. >I« 

=5^ UPDATE CLOCK. ’J' 

V5}c3^3;c5;c3{t:{c3;c5;c?5s5{c?^5;c:{c:<c ^ 3yC 3^ ^ ^ ^ 5r ^ V ^ ^ ^ ^ ^ ^5jj3^<>5c3{<3}CiJC3,C3ji2{23^I^ 3jt 3,» 3{l JyC 3^1 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



TIME = TI ME<-DTBAL<-DTE2 
CALL DSPLAY!2) 

WPITE!6,5) 

W P I TE ! 6 , 5 ) 

WRITE!6,8) 

:^3^3j:5;;;;c:{i3;i;;c;;c3jc:{5:*c3^3;i3{:;{t5;c sj: ;{c >*c :^c s|c sj: s^c 5|: sjc sjc :{« 3 }: :C= ❖ 5r ❖ ❖ ❖ 2 ;^ s}: 3 ;^ sjc :?c 5|c 3(j s^c :<c 5 

CALL INTER TO OBTAIN THE RELEASE POINT 
EXTAFCLATEO FROM THE LAST FOUR A/C POSITIONS 
AND CORRESPONDING DOWNRANGE TRAVELS. 



3{= 

❖ 

❖ 

5|C 

5}^3;^3{:^^<3{e3}:?;r:^t:(c3^:3}:3;c:{c3;^3^c^'cs;::{:3(«:5}:3{c:^c 3{c2{: sjc :?s 3{c;{c 3{j ^;c :{s 5*«: 3{c :{c s); 3{s 5 ^ 3{t 3 



TARP!1) AND XARP!1) ARE NEEDED BY THE 
SUBROUTINE THAT PLOTS THE GRAPHS. 



^ 3ji 
y. 

■V 

❖ 

❖ 

❖ 

❖ 



CALL INTER!XP,TP) 
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^ ^ -jf -M- -if -jt* -if -M- ■«• ->f -:i- >(. ^ 



T/SRP( 1 ) =0.0 
XARP( 1 ) =0.0 
TARP( 2i =TP 
XARP(2) =XP 



^ sic 5)( *«*«** ^: «** 4: 5;: :jc :$: *:{£ jJ; -£ 5^ !}: Jls 5>! jj; 5^ ^ ijt J :{t:^ :{< j;j ^ V- :{« 



UPDATE CLOCK. 

^ ^ «J. .V V. **- 'A* «!. »A» -.U V.P V<I> sC> .*• WU »V vA» »V ^ <»/» «lt. •<i4^ »*-» .JU ^ 

-«* ^ ■'r -r '1*“^' -t' 'I' 'r- *r- 5;^ -iF Jf; XC -F 2? ^ s;c 

TIME=TIf^E+0TE3 
ITB( 1)=1 
ITB{2)=5 
ITD( 5) =6 
IT6(4)=9 
RTB< 1)=6. 

RTB( 2) = 0.9 

ITE( 1)=2 

ITB( 2)=2 

ITE(3)=6 

ITB<4)=9 

ITB( 1)=3 

IT6(2)=1 

ITB( 3)=6 

ITB(4)=9 

SAVET=T IME 

SAVEH=HTIME 

SAVEK=VKTS 

SAVFA=HVA 

SAVEV=VVA 

SAVEX=XAT 

SAVEL=ALT 

TIRE=TP 



A 



5}c i\t 3(c :*,i 



«!. yXf 3 



CALL PCS TO GET A/C ALTITUDE TC BE SHOWN 
BY DSPLAY SUBROUTINE. 

s,K^ mX» ^ ^ ^ >V V*^ 

«<>|% 



CALL POS 
AARP=ALT 
T IRE=SAV6T 

A #❖❖>!«>!< AAA A A *S(!:AA 2i«*5:s5{:**5!>:! 



• AAAAAaAAvAA 



■J, ^ -JU -X. 



UPDATE CLOCK. 

5^3jc;;:^':2^s J^2*:?^5j;:^c:*c5jc5^:^c5;s:ic :{t3*c5ic>;c5;c3^5;t:;s2{5^c^3}c3{c3;s5jc:{;3j:5j:5j*<:;o',c5j« + ^5!c3^3;c5;c:Cs:?c^'c2j:5;;:;i 

TIME=TI ME+DTE6 

HTIME=SAVEH 

VKTS=SAVEK 

HVA=SAVEA 

VVA=SAVEV 

XAT=SAVEX 

ALT=SAVEL 

WRITE(6,8) 

CALL DSPLAYI4) 

CALL DSFLAY(2) 

WRITE(6,5) 

WRITE(6 t8) 

M = 3 

ICHEKK= ICHECK(M) 

IFIICHEKK .EQ. 3) GO TO 18 

AAAAAAA AA AAA AAAA AAAAA AAAAAA A AAA A A A A A AAA A AAA AA AAA A A 

FROM NOW ON, THE A/C POSITIONS AND 
CORRESPONDING DOWNRANGE TRAVEL OF WEAPON 
ARE UPDATED, TOGETHER WITH A NEW RELEASE 
POINT CALCULATION. 

THIS PROCESS GOES ON UNTIL THERE IS NO 
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^ *}f -if -Jf 4c ■»• 4f 41- •«• •«• 4t- 



^ MORE TIME TO COMPUTE THE SOLUTION. * 

^ jjc 

« ^Jc :{c « 3 ;.' ijc ^ :^c 3 ;^ >J: 3«< >fc 5{c :jc j}t sjc 5[? :{= 5}t « 



J = 3 

IF(MOO(J,3) .ME. 0) GO TO 6 
WRITE(6,2) 

WRITE(6,3) 

GC TO 7 
WRITEI6 ,4) 

DC 42 I =1 ,3 
XAC( IJ = XAC( H-1) 

XCPGP( I )=XCROP ( I +1 ) 

RTIHEI I )=PTIME( I +1 ) 

RTIME< 4) = TIME 
M=4 

ICHEKK= rCHECK(M) 

IF(ICh5KK .FQ. 4) GO TO 18 

CALL PCS 

XAC(4)=XAT 

WRITE(6,8) 

FORMAT ( 25X t ’ 

1 ) 

WRITE! 6,5} 

FORMAT! 25X,'=^=',39X,’':“) 

FT IME = T IME 
CALL DSPLAY! 1 ) 



vV ^ %ir Ur Ur 



UPDATE CLOCK. 



!{J 5!« 5? 5!= * 5l« 4: j}: 2|'- ❖ ❖ * * 5i« * ❖ sis :«s >!c sjc 5)t 5|< sj; :!: jjt s); jf: j;t j;c S.V ."Js :!t ,-J: :X * * Xt 



TIME=TIME+DTE5 
WRITE! 6,5) 

CALL OSPLAY!2) 
WRITE! 6,5) 

CALL B At 

XCPOP!4)=X/6080. 



U^ U# U# Ur Ur Ur Ur Ur U^ U> UU Ur Ur Vr Ur Ur Ur Ur U^ Ur Ur Ur Ur Ur Ur Ur ^tr U^ Ur %*r Ur Ur Ur VU Ur Ur Ur Ur Ur «^r Ur ‘ir Ur %V Ur 
^ r|V r^V r|% r,% r|% r|\ r^\ r|\ r|> r|V r^^ rj*^ ^ ^|X ^ rj% ^ ^ rj* r^ r^ r^\ 



NOW THE ARRAYS ARE UPDATED. 

3jc 3{. 3;* 3}C 3JC 5jc 3;c 3;: :ic 3;< 5;< 3{C S'; 3ic 3;x 31= 3{C 3jc 31; yc :{c 2|C 3:? 3{C 3:; 3{: :{c ?;? 3^ 



5^ 

3;c:^35c3{c 



CALL DSPLAY!3) 

WRITE! 6,5) 

V, «v 'A' ^ 4 " Vr ^ ^ .A. o. U/ y. y. y^ y. y^ y» ^ ^ yu y. y» y. ■.v yr y* y^ y^ y. y* y. Vf y. y< yf y^ y? y^ Vf y< 

*r ^ ^ ^ *v* •'.» 4 » ^ 'r ^ 'I* 'm *1^ "i* 'm ^ 'y* 4 * 't' 4 - 4 r -»i» *r nr < 4 * *v^ '■r ^ 'r 'r n** ^ 'i* nr nr 

3^ 3j» 

^ UPDATE CLOCK* i 

3jC ❖ 

3 j: 3 ic 3 ;cy.c 3 !c 3 ;< 3 (c 5 :x 3 {c 3 jc 3 (t 3 {::{c 5 jc 3 ,'x>}c 4 : 3 jt:is 3 }c 3 :s 3 ;« 3 ;c sj: s^csfc s;? 3 {i :{c s^csl; 3;? 3 :c:{c s;; 3 f: 3 ^c 



TIME=TIME+DTBALf DTE2 
CALL DSPLAY!2) 

CALL INTER(XP,TP) 

TARP<2) =TP 
XARP! 2) =XP 

Xt j}c X: # s|s sis sf! 5)< ❖ sis# sjs sis V >r sis sis sis ❖ s!«*5!« tS =!« <s »!* s<s sis « sis sis ❖ sis sis V sjs ** sis 



Hf. # 

« UPDATE CLOCK. =<“ 

sis # 

Xss{s####XsXss!ts!s##5;6s!tXsslcsisXss!tX5#si: XcXss!is:s«Xs5i;Xs5ls###s!s####Xs###s!<5!s#X:Xs#5|s## 



TIME=TIMEi-DTE3 

SAVET=TI ME 

SAVEH=HTIME 

SAVEK=VKTS 

SAVEA=HVA 

SAVEV=VVA 



c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



1 

2 
3 



SifiVEX = XAT 
SAVEL=ALT 
T INE=TP 

3^ jf >5c3{t 5*c:{? 3{«y; :$C5|t3;e;;t 3{c?{c 

* CALL PCS TO GET 6/C ALTITUDE TO BE SHOWN =«= 

* BY DSPLAY SUBROUTINE. « 

•JU Of 

■n' V 

CALL POS 
AARP=ALT 
TIPE=SAVET 

^ ^ >V ^ ^ Vr 'A' Vr 

^ ^ ^ ^ #Y* ^ 1 % ^ 1 % ^ 'T* ^ ^ ^ ^r* ^n ^'* 






UPDATE CLOCK. 



❖ 

5!^ 



1 8 

20 

21 

22 

AO 

17 



* ❖ 
>^>;£ :{t;}tj>:5i:5’c^;’; s!t:i£ 5"^ ^ ;;t ^: !■,£:<: si i!; ^ sjts!: sj^ * sissjt sisS^ :(; Sj; sjts): sjt ^ssjc sjcsjsi;; s[t sjtsfisj; 5[t si s;-. sjt s|j sf: :{: sjt 

TIME=TIM£<-OTNAV 

HTIME=SAVEH 

VKTS=SAVEK 

HVA=SAVEA 

VVA=^SAVEV 

XAT=SAVEX 

ALT=SAVEL 

CALL DSPLAYIA) 

CALL DSPLAY(2) 

WRITE (6, 5) 

WRITE(6 ,8) 

R = 3 

IChEKK= ICHECK(M) 

I F{ ICHEKK .EQ. 3 ) GO TO 18 
J = J + 1 
GO TO 43 
WRITE(6,4 ) 

GO T0( 20, 21,22,21 ), ICHEKK 
CALL DSPLAY(5) 

GO TO 4C 
CALL DSPLAYI6) 

GO TO 40 
CALL DSPLAY(7) 

GO TO It 

STOP 

END 

SUBROUTINE INIT 

sjrsic sj sltslcsits^ssisls^sissjcslts'.ss’^slcslts;: s|:s,i s’^si sj: sfisj! :!; sis!: ^sjcsfjsit s>: * sit slts’^ si s|t s^ sjt sjt;!: s;js>s|; slcs^; s^c s^t 



5? 

si 



INITIALIZATION PROCESS. 



3!t 

❖ 



COMMON /CHK/A TOL , TC , TM V , RL I M , A L I M 
CCMMON/CLK/T IME, ST IME 

COMMON/ INI /SABV, HVA, VVA , HTIME, XAT,A3V 
CCMMOiM/ACT/VKTS, ALT,DEG,YT , IDNO ^ 

COMMON /DTS/DTNAV , DTB AL , DT E 1 , DT E2 ,DTE 3 ,DT E4 , DT E5 , DT E6 
READ( 5, 1 )OEG,VKTS,XAT,ALT, YT,IDNO,TIHE 
FCRMAT(7G10.0) 

READ( 5,2)DTNAV,DTBAL,DTE1 ,0TE2,DTE3,DTE4 ,DTE5,DTE6 
FORMAT! 8F6.3 ) 

READ! 5, 3) ATOL,RL IM, ALIM,TMV 
FORMAT! 4G5.0) 

STIME=T IME 

AEV=A3S ! DEG^O .01 7453 ) 

HVA=VKTS«COS(ABV) 

SABV=SIN! ABV I 

IF !DEG.GT.0.0) SABV=-SABV 

VVA^VKTS^l'SABV 

HTIME=T IME 

TC=b.-DT3AL+DTEl +DT E 2+ DT E3+ DT £4 +DT E6 

RETURN 

END 
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iMf- ij- -a- 4i- -a- iUMf- -a- •}«••»• -a- -if- -if ^M5 



FLNCTION ICHECK(L) 

«.(«««. ^ ^ -JL. <•»«««« -JU >V V' «A<^ -'<■ <JU -JO. 

*v» ^ ^ ^ *Y* A' *¥• "r ■nr' 't' ^ 



>}f sjt :^c 






CHECKS: IF THERE IS A SOLUTION TO THE PROBLEM 
IF THERE IS TIME TO COMPUTE IT. 

IF THE A/C WILL BE IN DANGER ZONE 



^ 5r * ^ 5|< *««**=}: *5!= Jr ^ « « =!: * =!s =(: ❖ * !!« * 5^ * « 3^5 ^ * j!: :!5 :jt « * 4= Sr * 



CCMMON/DSP/FTIME ,XP,TP, AAPP 
CCMFCN/CHK/ATOL,TC,TMV,RLIM»ALIM 
CCMMON/SAV/SriVA, SXAT 
CCMMON/TAD/T ,X 
COMMON/CLK/TIME, STIME 

COMMON/ INI /SABV, HVA, VVA , HTIME» XAT,ABV 
CCMMON/ACT/VKTS, ALT,DEG,YT, IDNO 
CCMMCN/VEC/RTIME( 4) ,XDR0P(4) ,XAC(4) 
CCMMON/DTS/DTNAV tOTB ALtOTEl ,DTE2 ,DTE3fDTE4, DTE5, 
ICHECK=0 

GO TO ( 1 ,2t3»4) , L 
IF(DEG .GE. 0.0) GO TO 5 
ALTM=ALT/6080. 

REL=ALTM/XAT 
ALF=ATAN( REL ) 

AT0LR=AT0L*0. 017453 

IFIABV .GE. (ALF-ATOLR)) GO TO 6 

AL=ALIM/6080. 

TLIM=(ALTM-.AL) *3600./ VVA 
IFITLIM .LT. (TC-DTBAD) GO TO 6 
RETURN 
CALL BAL 

IF(XAT .LT. (X/5080.)) GO TO 6 

RETURN 

ICHECK=1 

RETURN 

TOC=TC 

IFIDEG .LT. 0.0) TOC=TC-DTBAL 
DTOL=HVA*TCC/3600. 



^ ^ ^ jL> ^ ^ yu ^ ^ ^ ^ y< ^ ^ ^ ^ ^ y^ 

^ ^ ^ ^ ^ ^ ^ ^F* ^p ^P ^ ^p ^P ^p ^ ^p ^ ^P ^ 



HERE THE DOWNRANGE TRAVEL IS CALCULATED FOR 
THE TIME OF COMPUTATION OF THE FOUR 

POINTS. THIS IS DONEtTO HAVE THE INFORMATION 
AS SOON AS POSSIBLEtIF THERE IS GOING TO BE 
TIME TO FIND THE SOLUTION. 

DTOL* DISTANCE THE A/C TRAVELS DURING THE 
COMPUTATION OF THE FOUR POINTS AND 
EXTRAPOLATION OF THE SOLUTION. 

XDR - ESTIMATED DOWNRANGE TRAVEL AT RELEASE 
POINT. 

XAT - DISTANCE FROM TARGET AT PRESENT TIME. 



^ :!c * s;s !l::{c sits^s !}:)!« 3r ❖ ❖ ❖❖ 3ls ❖ 



SAVET=TIME 

SAVEH=HTIME 

SAVEK=VKTS 

SAVEA=HVA 

SAVEV='/VA 

SAVEX=XAT 

SAVEL=ALT 

TIME=TOC 

CALL POS 

CALL BAL 

XDR=X/6080. 

T IM.E = SAVET 

HTIME=SAVEH 

VKTS=SAVEK 

HVA=SAVEA 

VVA=SAVEV 

XAT=SAVEX 

ALT=SAVEL 

IF((XDR+OTOL) .GT. XAT) ICHECK=2 
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if -if -«• -if -ef ‘)i- if -if -if -if -if nn -if ^ -jf •«- -if 



ooooo oooooono 



RETURN 

SC1=XP*XP 

AARPM=AARP/6080. 

SQ2=AARPM*AARPM 

Se3=(RLIM+VKTS*TMV/3600. ) RLIMf VKTS«TMV/3600. ) 

IF(SQ3 .GT. (SQl+SQ2i) ICHECK=3 

RETURN 

DTCL=HVA*2.*( DTB AL+0TE2+DTE3+0TE5+DTE6) /3600. 

Wu <«V % 

•-'i' ^ ^ ^ ^ ^ ''1^ ^ ^ ^ ^ ^ ^ ^ 7j^ ^ ^ 



4: 

=!< 



HERE , INSTEAD OF USING BAL TC COMPUTE THE 
DOWNRANGE TRAVEL, IT IS LINEARLY EXTRAPOLATED 
FROM LAST TWO VALUES. THIS IS DONE TO SAVE 
TIME 



^3{C 



. »•<. -j^ -J 4 - <u~. .V «v V.> . 

' — ^ ^ ff. ^ . 



^ -^f %v w 



DSR=(XDRCP(3)-XDROP(2) > / ( RT I ME ( 3 ) -RT I ME ( 2 > ) 
RTM=RTIME(4)-RTIME(3) 

XDP=XDRCP( 3) +DSR''i‘RTM 

IF(( XDR +DTOL) .GT. XAT) ICHECK=4 

RETURN 

END 

SL'EROUT INE DSPLAY ( I ) 



^ «<V ^ V «A^ *4^ WU WU 

% ^ ^ ^ ^ 



.» %(U ^ ^ <4^WU ^ -4«i> %C ^ 

^ >1^ ^1% ^1% «<Y^ ^ ^ 



>!« 

« 

J(« 



OUTPUTS THE RESULTS. 



1 

24 

25 
2 

27 

3 

26 

4 
8 

1 1 
9 

14 

12 

13 

5 

19 



CCMMCN/TAD/T ,X 
CCMMON/DSP/FTIME .XP,TP,AARP 
COMMON/ CHK/ A TOL , TC , T MV , R L I M , AL I M 
CCMMON/CLK/TIM5 ,ST I WE 

CCHMON/ INI/S ABV, HVA, VVA, HTIME, XAT,A6V 
CCMMON/ACT/VKTS, ALT,DFG,YT, IDNO 
CCMMON/VEC/RTIME (4) , XDROP \ 4 ) , X AC ( 4 ) 

GO TO( 1 ,2,3,4,5,6,7>, I 
WRITE(6,?4 IFT IME 

FORMAT! 25X, ' =^'* ,6 X, 'AT TIME = ‘ ,F6. 3 , • t 1 7X ,'=«=• > 
WRITE! 6,25 >XAT, Alt 

FORMAT! 25X,'':'* ,6X, 'XAT = ' ,F6.2,2 X, 'ALT = ' ,F8. l,9X, •*• ) 
GO TO 10 
WRITE!6 ,27)T IME 

F0RMAT!25 X,'*' , 6X, 'THE TIME NOW 1 S : • , F3 . 3 , 9 X , ' * ' ) 

GO TO 10 

WPITE!t.,24)FTIME 
XI S=X/6080. 

WRITE!6,26> XIS 

FORMAT ! 25 X,'*' , 6 X, *XDR 0 P=' ,F 6 . 2 , 21 X,'«* ) 

GO TO 10 
WRITE!6,11) 

FORMAT ! 25X , • ’!==!' 

FOFMATI25 X, •*' , 39 X,'*‘ ) 

WRITE! 6, 9) 

FORMAT! 2 5 X,'*‘ , 2X, 'RELEASE POINT:' ,23 X, '«* ) 
WRITE!6,14)XP ^ ,-rr 

FORMAT! 25 X,'*' ,2X, 'HORIZ. DIST. TO TARGE T ; ' , 3X , F5 . 3 , 
1' MM',2X,'=^') 

WRITE!6,12 )TP ^ 

FORMAT ! 2 5X, ' ’i'' ,2X, ' TI ME' , 18X , ' : ' , 2X,F6. 3, ' SEC* , 2X, 
1'*' ) 

WRITE!6, 13)AARP . . 

FORMAT! 2 5X,''-'* ,2X, * A/C ALT I TUDE ' , 1 OX , ' : * , 1X,F7.1 , ' 

1 , 2 X, '«' ) 

WRITE!6,11 ) 

GO TO 10 
WRITE!6,8) 

WRITE!6 ,LL) 

FORMATt25X,'=!=' ,6X, 'NO SOLUTION FOR THESE DATA:', 

16X, ) 

WPITE!6,11) 

WRITE(6,8) 



FT 
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•» -if- -M- ■)!• -K- ■«■ ii Hi- ■«• ■}«■ * -Ji- 



oooooo ooooooo 



WPITE(6,69) 

69 FCRMAK'l'J 
GC TO 10 

6 WPITE(6,8) 

WRITE (6,11 ) 

WRITE(6,20) 

20 FORMAT! 25X, ,6X, 'NOT ENOUGH TIME TO COMPUTE 6X 

WRITEI6, 11 ) 

WRITE( 6,8 J 
GC TO 10 

7 WRITE(6,8) 

WRITE<6,11 ) 

WRITEI6 ,21 ) 

21 F0RMAT(25X,'«' ,6X,'THE A/C WILL BE INSIDE THE',7X,'*') 
WR1TE(6,22) 

22 FCPMAT(25X,'=!'' ,6X, 'DANGER ZONE AT TIME OF H I T • , 7X , • M 
WRITE(6,11) 

WRITE(6,8) 

10 RETURN 
END 

SLBROUTINE P9S 

A* sis* ^ ❖ *1= =i£ *'!: ^ 



* THIS SUBROUTINE UPDATES VALUE OF VKTS AND « 

COMPUTES VALUES OF HV,VV,XAT AND ALT. * 

* IT REPRESENTS THE NAVIGATIONAL COMPUTER. « 

* * 



ijt sjt ^ 5l« 



- %V *nV %K> V# 

‘ -T" -V" ^ --p ^ ^ ^ ^ 



CCMMON/CLK/T IME, ST IME 

CCMMON/ INI/SABV, HVA, VVA, HTIME, XAT,ABV 

COMMON/ AC T/VKT S, ALT, DEG, YT, IDNO 

DT= TIME-HTIME 

VKTS = VKTS+-32. 174«DT^SABV 

VV=VKTS*SABV 

HV=VKTS*COS( ABV) 

HMV=(HV4-HVA) /2. 

VMV=( VV+VVA)/2. 

XAT=XAT-HMV=:'OT/3600. 

ALT=ALT-VMV*DT*6080./3600. 

HTIME=T IME 

HVA=HV 

VVA=VV 

RETURN 

END 



vV 

^ ^ 



SUBROUTINE BAL 

Vf» ^ ^ ^ ^ ^ 

>1% ^1% 



?;s ^ 5fc ^ ^ ?Jc ajc a;x ;{£ >Jc 3|C ^ ^ :1c sj: 3;? 5jc J^e :|c >)c j'.c 



❖ 



THIS SUBROUTINE CALCULATES TIME OF FLIGHT 
AND DOWN RANGE TRAVEL OF THE BOMBS. 









%Xr „0 iXr ^ Jo J. «A» -"A. J.> %U ^ ^ J. mtf ^ ^ ^ 'iir 

.J. PT|^ ^|P. 



5!« 

« 

* 

❖ 



CCMMON/AREA/ CT(2,2), CC(3,3,2), IREF, 
ICFORMl, DKGl, DMAX, ITYPE, IBGTH, DMl,CFGRM2, 
2DKG2, DS, SL, FN, VMUZ, RAD, FRACT, VE, THETA 
3V, VXA, VYA, CF, DM, DKG, VX, VY , TH , Y, YA, 
4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO, 

5 ,G, A, AA,VYK,D,CKDG,MSTG 

CCMMON/TAD/T,X 

CGMMON/ACT/VKTS, ALT,OEG,YT, IDNO 
C CALL SETDAT TO INITIALIZE THE CONSTANTS 
CALL SETDAT 

C CALL DECODE TO INITIALIZE THE BOMB COEFFICIENTS 
CALL DECODE 

C CALL TRAJ TO CALCULATE THE SOLUTION TO THE DIFF. 
CALL TRAJ 
RETURN 
END 

SLBROUTINE SETDAT 

CCMMON/AREA/ CT(2,2), CC(3,3,2), IREF, 

ICFCRMl, DKGl, DMAX, ITYPE, I80TH, DMl,CFORM2, 
2DKG2, DS, SL, FN, VMUZ, RAD, FRACT, VE, THETA 



DM2, 

, U , DEL, 
DTI, DTV 



EQUATIONS 



DM2, 

, U, DEL, 
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c 



c 



c 



c 



c 



3V, VXA, VYA, CF, DM» DKG, VX, VY , 
4VXC, YO, VYD, ANl, AN2, API, AP2, 
5 ,G, A, AA, VYK, D,CKDG,;>1STG 

COMMCN/TAD/T,X 

CCMMON/ACT/VKTS, ALT,DEG,YT, IDNO 

G= 32.174 

RAC= 0.0174533 

A= 0.7 

AA= 0 . 5/A 

VYK = -5.0 

FRACT= 0.5 

DS = 0.0 

CFCRM1= 0.0 

CF0RM2= 0.0 

DM1= 0.0 

DM2= 0.0 

DKG1= 0.0 

DKG2= 0.0 

VMUZ= 0.0 

VE= 0.0 

SL= 0.0 



TH, Y, YA, 

IREG, RHO, DTI, 



DPAX=^ 5.0 
ITYPE= -1 
FK= 0.0 
IBOTH= 1 
T= 0.0 

U= VKTS ^- 1.6873 
DEL= ATAN2(VE,U) 

V= SORT (U*U^-VE''^VE ) 

THETA= DEG -RAD 

VXA= (V«-VMUZJ* COS( THETA-DEL) 

VYA= (V<-VMUZ)=? S IN(THETA-DEL) 

RETURN 

END 

SLBRCUTINE DECODE 

CCMMCN/AREA/ CT(2,2), CC(3,3,2), IREF, 

ICFORHl, OKGi, OMAX, ITYPE, IBOTH, 0M1,CF0RM2, DM2 
2DKG2, DS, SL, FN, VMUZ, RAO, FRACT, VE, THETA, U, 
3V, VXA, VYA, CF , OH, DKG, VX, VY, TH , Y, YA . 

4VXC, YO, VYO, ANl, AN2 , API, AP2, IREG, RHO, OT I , 
5 ,G, A, AA,VYK, D,CKDG, MSTG 

COMMON/TAD/T,X 

COMHON/ACT/VKTS, ALT,DEG,YT, IDNO 

GO TO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17, 
1,20,21, 22,23,2^,25,20,27,28) , IDNO 
WEAPON CONSTANTS FOR THE MK 43 UNRETARDED 

1 IPEF= 4 

DKC-1= 2.5506E-03 
DTI = 3. 

GO TO 31 

WEAPON CONSTANTS FOR THE HK 57 UNRETARDED 

2 IREF= 4 

DKG1= 6.2994E-03 
DTI = 3. 

GO TO 31 

WEAPON CONSTANTS FOR THE MK 61 UNRETAROEO 

3 IREF= 4 
DKGi= 4.01E-03 
DTI = 3. 

GO TO 31 

WEAPON CONSTANTS FOR THE MK 116 WETEYE 

4 IREF= 2 

DM AX = 3.0 
CFCRM1= 3.9235E-03 
DKG1= 2.754E-03 
DTI = 2. 

GO TO 31 

WEAPON CONSTANTS FOR THE MK 76 WITH LUG 

5 IREF= 2 



CMAX = 3.0 
CF0RM1= 3.9077E-03 
0KG1= 6.3640E-03 



DTV 



DEL, 

DTV 

18,19 
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OTI = 1. 

GO TO 31 

C WE/iPGN CONSTANTS FOR 

6 IREF= 4 
DMAX = 2. 

DKGl= 0.021266 
DTI = 1. 

GO TO 31 

C WEAPON CONSTANTS FOR 

7 IREF= 1 
CFCRM1= 2.5704 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR 

8 IREF= 4 
DMAX = 3.0 
DKG1= 9.767E-03 
DTI = 2. 

GO TO 31 

C WEAPON CONSTANTS FOR 

9 IREF= 1 
CFCRM1= 2.064 
OTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR 

10 IREF= 1 
CFCRM1= 1.4932 
OTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOR 

11 IREF= 1 
CFCRM1= 1.3431 
DTI = 1 . 

GC TO 31 

C WEAPON CONSTANTS FOR 

12 IREF= 1 
CFCRM1= 1.21 
DTI = 5. 

GC TO 31 

C WEAPON CONSTANTS FOR 

13 IREF= 1 
CF0RM1= 1.0 
DTI = 3. 

GO TO 31 

C WEAPON CONSTANTS FOP 

14 IREF= 1 
CFCRM1= 3.12 
0KG1= -1.223E-03 
DTI = 3. 

GC TO 31 

C WEAPON CONSTANTS FOR 

15 IREF= 1 
CRAX = 3. 

CFORMl= 3.4972 
DTI = 2. 

GO TO 31 

C WEAPON CONSTANTS FOR 

16 IREF=1 
CFCRM1= 1.605 
DTI = 3. 

GC TO 31 

C WEAPON CONSTANTS FOR 

17 IREF= 4 
CHAX = 3. 

DKG1= 7.3295-03 
DTI = 1 . 

GO TO 31 

C WEAPON CONSTANTS FOR 

18 IREF= 1 
ITYPE= 1 
IBOTH= 2 

DKG1= 7.329E-03 



THE MK 77 FIREBOMB 
THE MK 81 

THE MK 81 SNAKEYE UNRETARDED 

THE MK 32 MECH FUZE 
THE MK 82 ELEC FUZE 
THE MK S3 MECH FUZE 
THE MK83 ELEC FUZE 
THE MK 84 
THE MK 117 AL 

THE MK 86 WET SAND FILLED 

THE MK 88 WET SAND FILLED 
THE MK 82 SNAKEYE UNRETARDED 

THE MK 82 SNAKEYE RETARDED 
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CF0RM2= 1.6895E-02 
DK2= 0.38 
DKGZ= 0.17166 
DS= 0.6617 
SL= -0. 000269 
DTI = 2.0 
GC TO 31 

C WEAPON CONSTANTS FOR THE SADEYE T1 = 4.0 

19 IREF= 1 
ITYPE= 1 
IBOTH= 2 
CFORMi= 2.0754 
CF0RM2= 0.2217 
DS = 4.267 

DTI = 1.5 
GO TO 31 

C WEAPON CONSTANTS FOR THE ROCKEYE II T1 = 4.0 

20 IREF= 1 
ITYPE= 1 
IBOTH= 2 
CF0RM1= 2.2973 



DM1= 0.32 
CKG1= 8.175E-03 
CFCRM2= 1.11366*02 
DM2= 0.41 
DKG2= 0.16835 
DS = 4.06 
DTI = 2.0 
GO TO 31 

C WEAPON CONSTANTS FOR THE CBU T1 = 4.0 

21 IREF= 1 
ITYPE= 1 
IBOTH= 2 
CFORMl--^^ 2.2404 
CF0RM2= 0.1178 
DS = 4.0 

DTI = 1 .62 
GC TO 31 

C WEAPON CONSTANTS FDR THE HK 31 SNAKEYE RETARDED 

22 IREF= 1 
ITYPE= 1 
IBGTH= 2 
DKG1= 9.767E-03 
CF0RM2= 2.30625E-02 
DK2= 0.38 

DKG2= 0,23237 
DS= 0.679 
SL= -0.000303 
DTI = 1.622 
GO TO 31 

C WEAPON CONSTANTS FOR THE GUN 

23 IPEF= i 
DRAX = 1.5 
CFORMl= 2.9964 
DKG1= -0.014992 
VMUZ= 3300.0 
DTI = 0.5 

GO TO 31 

C WEAPON CONSTANTS FOR THE ROCKETS 

24 1PEF= 3 
ITYPE= 2 
CF0RM1= 0.82 
CF0RM2 = l.O 
FN= 1746.0 
DS = 1.4225 
DTI = 1 . 

GC TO 31 

C WEAPON CONSTANTS FOR THE MK 43 RETARDED 0.4 SEC DELAY 

25 IREF= 4 
ITYPE= 0 
DS= 0.98 
DKG2= 1.48 
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DTI = 0.31 
GO TO 31 

C WEAPON CONSTANTS FOR THE MK 57 RETARDED 0.8 SEC DELAY 

26 IREF= 4 
I7YPE= 0 
DS= 0.89 
DKG2= 2.0 
DTI = 0.22 
GO TO 31 

C WEAPON CONSTANTS FOR THE HK 61 RETARDED 0.6 SEC DELAY 

27 IREF= 4 
ITYPF.= 0 
DS= 0.89 
DKG2= 2.70 
DTI = 0.1 
GO TO 31 

C WEAPON CONSTANTS FOR THE MK 106 MOD 2 

28 IREF= 2 
ITYPE= 2 
CFCRM1= 0.1514 
CFCRM2= 0.1514 
DS = 0.5 

DTI = 0.8 

C SET THE REFERENCE DRAG CURVE COEFFICIENTS AND CUTS 

31 GO TO (32,^3,34,51), IREF 

32 CC(1,1,1)= 1.572924E'03 
CC( 1, 2, 1 )= 0.0 

CC( 1,3, 1 )= 0.0 
CC( 2, 1 , I )= 4.678409E-02 
CC( 2, 2, 1 )=-0. 109711069 
CC(2,3,1)= 6.654301E-02 
CC(3, 1 , 1 )=-0. 115380157 
CC(3, 2, 1 )= 0.217643894 
CC(3,3,11= -9.7670686-02 
CT( 1, 1) = O.S3^ 

CT(2, 1 ) = 0.977 

IF { I30TH-1J 3^,99,33 

33 CC( 1, 1 , IBQTH)= 3.53503924 
CC(1,2, I B CTH 1 =- 3 .34778216 
CC(1,3, IBOTH)= 2.87262413 
CC( 2, 1 , I BOTH 1=^1 1.2616503 
CC(2,2, I80TH)=-27.41b2512 
CC12,3, IBOTH)= 21.7308359 
CC(3,1, I BOTH )=- 23. 7915472 
CC(3,2 , IBOTH)= 44.2607764 
CC(3,3, I BOTH) =-14. 4996046 
CT(1,IBCTH)= 0.622 
CT(2,IBGTH)= 0.385 

GO TO 51 

34 CC(1,1,1)= 0.104115 

CC( 1,2, 11= -0.230347 
CC(1,3,1)= 0.167644 

CC(2,1, 1)= -0.194037 
CC(2,2,i)= 0.401478 

CC(2,3,1)= -0.164612 
CC(3,ltl)= 7.33246E-02 
CC(3, 2, I )= -2.03275E-02 
CC(3,3,i)= 2.44682E-03 

CT(1,1)= 1.032 
CT(2,U= 1.30 

99 DO IOC 1=1,3 
DO 100 J=l,3 
CC(I,J, 21=0.0 



100 CONTINUE 

CT(1, 21=0.0 
CT(2,2)=0.0 
51 RETURN 
END 

SUBROUTINE TRAJ 

r r Ki MO ^.l/AocA/ r T 



SUBROUTINE TRAJ 

CCMMON/AREA/ CT(2,2), CC(3,3,2), IREF, 
ICFORMl, OKGl, DMAX, ITYPE, IBOTH, DM1, 
2DKG2, OS, SL, FN, VMUZ, RAD, FRACT , VE 



IREF, 

1,CF0RM2, 
VE, THETA, 



DEL, 
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TH, Y, 

IREG, 



3V, VXA, VYA, CF, DM, DKG, VX, VY, 

4VX0, YO, VYO, ANl, AN2, API, AP2, 

5 ,G, A, AA,VYK,D,CKDG,MSTG 

CCMMON/TAD/T,X 

COMMON/ACT/VKTS , ALT,DEG,YT, IDNO 
INITIALIZE THE VARIABLES FOR THE TRAJECTORY 
CF= CFORMl 
DP= DM1 
DKG= DKGl 
MSTG= 1 
X= 0.0 
T= 0.0 
VX= VXA 
VY= VYA 
TH= FN 
Y= ALT 
YA= Y 

TYPE CF DRAG 



YA, 

RHO, 



DTI, DTV 



SUBROUTINE 



SET 

1 



IF (ITYPE) 2,1,1 



,*G*( Y ) ) J 



C SET 



STEP SIZE FOR FIRST STAGE DRAG 
D= DS<-SL*U 
GO TO 3 

C COMPUTE STEP SIZE 

2 D = DMAX 

C call RUNGE KUTTA SUBROUTINE 

3 CALL RUNGE 

DTV = 1 /G=M VY + SQRT(VY*^2 + 2 
D = DTI 

IF ( { IDN0.LE.17) .OR. (IDNO.EQ.23> ) GO TO 4 
THE SECOND STAGE DRAG PARAMETERS 
MSTG = 2 

IF ( ITYPE. EQ. 2) MSTG = 1 
DKG= DKG2 
0M= DM2 
CF = CFCRM2 
TH = 0.0 

IF (DTV - D) 5,3,3 
THE STEP SIZE TO THE VACUUM DROP 
D= DTV 

THE DRAG PARAMETERS FOR THE FINAL 
MSTG= 2 

IF ( ITYPE. EQ. 2) MSTG = 1 
DKG= DKG2 
DR= DM2 
TH=0.0 
CF” CF0RM2 

RUNGE FOR THE FINAL INTEGRATION 



4 

C SET 

5 

C SET 



TIME REMAINING 
INTEGRATION STEP 



C CALL 



CALL RUNGE 
DTV = 1/G*( VY + SQRT (VY««2+-2. 

OF FALL AND THE 



Y 

DOWN 



STEP 
) ) ) 

RANGE 



TRAVEL 



UPDATE THE TIME 
T = T + DTV 
X = X fDTV^i^VX 
RETURN 
END 

SUBROUTINE RUNGE 

CCMMCN/AREA/ CT(2,2), CC(3,3,2), IREF, 

ICFORMi, DKGl, DMAX, ITYPE, IBCTH, DM1,CF0RM2, DM2, 
2DKG2, DS, SL, FN, VMUZ, RAD, FRACT, VE, THETA, U, DEL, 
3V, VXA, VYA, CF, DM, DKG, VX, VY, TH , Y, YA, 

4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO, DTI, DTV 
5 ^G, A, AA ,VYK , D,CKDG, MSTG 

CGMMON/TAD/T,X 

CCMMON/ACT/VKTS, ALT,DEG,YT, IDNO 
INITIALIZE THE VARIABLES FOR THE RUNGE KUTTA 
AO = A»D 
Y0= Y 
VXO= VX 
VYO= VY 

RHO= 2. 3?5 7oE-03-Y^M6. 87557E-08-Y*6. 716 18E-13I 
CALL DERIV 

UPDATE POSITION AND VELOCITIES 
Y= YO^-AD^VY 
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RHO= 2. 37576E-03-Y*( 6. 87557E-08-Y*6. 7161 3E- 13 ) 

AP1= AP2 
AN1= AN2 
VX= VXO + AD’^ANl 
VY= VYC+A0*AP1 
CALL DEPIY 

C COMPUTE TIME, POSITION AND VELOCITIES 
T= T+D 

x= xi-o«(vxo<-AA-( vx-vxon 

Y= YO+D”( VYO+AA* ( VY-VYO) ) 

VX= VXOfO'-i^I ANI + AA’PI AN2-AN1 ) ) 

VY= VY0+-O=<M AP1^-AA«(AP2-AP1) ) 

RETURN 

END 

SUBROUTINE DEPIV 

CCMMCN/AREA/ CT(2,2), CC(3,3,2), IREF, 

ICFORMl, DKGl, DHAX, ITYPE, IBOTH, OMl,CFORM2, OM2, 
2DKG2, OS, SL, FN, VMUZ, RAD, FPACT, VE, THETA, U, DEL, 
3V, VXA, VYA, CF, DM, DKG, VX, VY , TH, Y, YA, 

4VX0, YO, VYO, ANl, AN2, API, AP2, IREG, RHO , DTI, DTV 
5 ,G, A, AA, VYK,D,CKDG,HSTG 

CCMMON/TAD/T,X 

CCMMCN/ACT/VKTS, ALT,OEG,YT, IDNO 
C COMPUTE THE TOTAL VELOCITY AND THE MACH OF THE WEAPON 
V = SQRT( VX'-i'VX+VY^VY) 

CM= V’!‘( 8.9 544E-C4+3.2 6E-09*Y)+OM 
C DETERMINE THE REGION OF THE DRAG CURVE THAT IS APPLICABLE 
IF (CM-CT( 1,MSTG) ) 1, 1,2 

1 IREG= 1 
GO TO 5 

2 IF (CM-CT( 2,MSTG) ) 3,3,4 

3 IREG= 2 
GO TO 5 

4 IREG= 3 

C DO INTERMEDIATE BALLISTIC CALCULATION 

5 CKDG = DKG+CF*(CC( IREG,l,MSTG) + (CCnREG, 2,MSTG) 

1 +CC ( I REG , 3 , MSTG } =i^CM )-CM ) 

HH= TH/V- RH0*CKDG«V 
AN2= HH*VX 
AP2= HM'-l-VY-G 
RETURN 
END 

SUBROUTINE I NTE R ( X ARP ,T ARP ) 

* jj: ^ 5ii ❖❖ 5|t ^ 3[; j}: 5j: :i!t 5)5 sje -ic 3j! ^ ^ ^ * 



I 



5r ^ 

« SETS UP THE INCREMENTS OF TIME AND THE * 

❖ DIRECTION OF SEARCH OF THE INTERSECTION. * 



; sjc 5}c ^ 2,‘c ;|c 2, <5 5*^ J,*? 3',s 2jc : 



CCMM0N/V£C/RTIM5(4) , XDROP ( 4 J , X AC (4) 

CCMMCN/CLK/T IME, ST IME 
CCMMON/RET/RT,ZERO 
RT=RTIME( 1 ) 

OT = l . 

RES=1.0 MEANS THE ANSWER WAS FOUND. 

RES=COMP(OTJ 

IF (RES .EQ. 1.0) GO TO 1 

DT=-0. 1 

RES=COMP(OTJ 

I F (RES .EQ. 1.0) GO TO 1 

DT=0.01 

RES=COMP( DT) 

IF (RES .EQ. 1.0) GO TO 1 

DT=-0.C009 

RES=COMP( DT) 

TARP=RT 

XARP=ZERO 

RETURN 

END 

FUNCTION CCMP(OT) 

« * 
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c 

c 

c 

c 



c 

c 



3 

1 

? 



c 



c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 



1 

2 

3 

4 

8 

9 

10 

1 1 
1 1 I 
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* EXECUTES THE SEARCH UNTIL THERE IS A CHANGE 

* OF SIGN OR THE INTERSECTION WAS FOUND. 

>!= 



CCMMON/VEC/RTIHE( 4) ,XDR0P(4 ) ,XAC (4) 
COMMON/CLK/TIME, STIME 
CCMMON/RET/RT,ZERO 
***"ZERO",FOR THE XAC ARRAY. 

❖ =^=^"DNE"f FOR THE XDROP ARRAY. 

CCMP=-1 .0 

NIL=0 

NUN=1 

DO 1 1=1,50 
ZERO=ORTFIT(RT,NIL ) 

CNE=ORTFIT(RT, NUM) 

IF (ABSIONE- ZERO). LT. 0.001) GO TO 2 
IF (OT .GT. 0.0) GO TO 3 
IF ( ZERO. GT. ONE ) RETURN 
GO TO 1 

IF (ONE. GT. ZERO) RETURN 

RT=RTfDT 

CCHP=1.0 

C0NP=1.0 MEANS THE ANSWER WAS FOUND. 

RETURN 

END 

FUNCTION ORTFIT(RT,IARRAY) 

■j, •.‘‘f ^ -Jr <Jr ^ ^ ^ vu Vo «io .Ao Vr V'' ^ <,*0 oio ^ ^ ^ 

*»*■ 'r ■'f* '■1' ^ o,* oj* ^ ^ ^ o,* ?,» o,» »,• <r,* ^ ^ 'r T* 'I* ■'I* 4* ^ 'f 



* THIS FUNCTION GENERATES THE NECESSARY 

* ORTHOGONAL POLYNOMIALS , FINOS THE 
« COEFFICIENTS OF THE POLYNOMIAL THAT 

REPRESENT THE DATA POINTS AND EXTRAPOLATE FOR 

* THE REQUIRED TIMS. 



5}c 5^ ?)£ ;*c ^ 



^ 



^ 

^ 4^ 



p> %v 

7 ^ ^ ^ ^ 






CC.MMCN/VEC/RTIME ( 4 ) , XDR0P(4 ) , X AC ( 4) 

DIMENSION ARRAY! 4) 

DIMENSION C(4) 

❖ ❖5I: rt: PEAL TIME 

lARRAY: SWITCH BETWEEN XDROP AND XAC 
IF( lARP AY.EQ.O) GO TO 2 
DO 1 1=1,4 
ARRAY! I )=XDR0P( I ) 

GO TO 4 
DO 3 1=1,4 
ARRAY! I )=XAC!I ) 

S0=4.0 

B=0.0 

DO 0 1=1,4 
6=B+RTIME( I ) 

B0=B/S0 
S1=0.0 
DO 9 1=1,4 

51 = Sl^v RTIMc! I)-B0)=!‘*2 
B = 0.0 

DO 10 1=1,4 

B = B^-(RTIME( I ) )=!'(RTIME( I )-B0)=!=*2 

B1=B/S1 

C1=S1/S0 

S2=0.0 

DO 11 1=1,4 

52 = S2+( {RTIMEI I )-Bl )*(RTIME { I )-B0)-Cl)*=!=2 

8 = 0.0 

B=BiRTIME ( I )*( (RTIME! I )-Bl )*(RTI ME(I )-B0)-C 1)**2 

B2=B/S2 

C2=S2/S1 

S3=0.0 

53 = S3M ( RTIME! I )-B2 { { RTIME ( I ) - Bl)^! RT IME ( I )-B0)- 

1C2=!‘(RTIME( I )-30) 

D=C.0 



* 

y,c 



Cl )- 
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-ii- -;«• -If- •«•■){■ -s$ -it 



DO 12 I=lt4 

12 0=D+ARRAY(I) 

C(1)=0/S0 

D = 0.0 

DO 13 1=1,4 

13 D=D*-(ARRAY(I ) )*( RTIME( I)-BO) 

C (2)=0/Sl 

0 = 0.0 

DO 14 1=1,4 

14 0 = D+( ( ARRAY( I n* ( (RTI ME( I )-Bl ) «( RTIMEt I ) - BO )-Cl ) ) 
C(3)=D/S2 

D = 0.0 

DO 141 1=1,4 

141 0=0f (ARRAY ( I ) ) * ( ( RT I ME ( I ) -B2 I * ( ( RT IME ( I ) -B 1 )* ( RT I ME ( I ) 

l-60)-Cl )-C2*(RT IME( I )-80» ) 

C(4) =D/S3 

ORTFIT=C( l)fC(2)=:'( RT-BO) <-C(3)*( ( RT-Bl )*( RT-B0)-C1 ) 

1 +C(4)*( (RT-B2)-( (RT-Bl)=i=(RT-B0)-Cl)-C2*{RT-B0) ) 

RETURN 

END 
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EXECUTIVE'S COMPUTER PROGRAM 



nr 






DECLARE MAVTAB DATA 

( OOCHtOOOH, 000H,040H,000H,000 Ht 
OAOH,OEBH, OEBH,OADH, 081 H, OATH, 04DH, 
OOAH,OCoH, OFAH, 049H , 0F4H , 06 2H , 
0C5H,0ElH,03tH,04DH,0F7ri,068H,04CH, 
014H,0CBH, 06 2H, 049H , 0 EFH , 0 2 I H, 
0C5H,0D6H, 086H,04DH,OE3H,029H,04CH, 
01EH.0CFH,09EH.049H,0EAH,062H, 
0C5H,0CBH, 0D2H, 040H , ODEH , 0V7H, O^CH , 
028H,GD3H, OACH, 049H , 0E6H , 0 18H, 
0C5H,0C IH, 01 IH, 04DH,0D1H, 0B4H,04CH, 
032H,C07H, 08DH, 049H , OE 2H , 0 3CH , 
0C5H,0B6H, 04AH,04DH,0C4H,085H,04CH, 
03CH,00BH,03EH, 049H,0DEH,0C4H, 
0C5H,0ABH, 07BH, 040H, 0B7H,00FH,04CH, 
046H,0DEH, 08EH, 049H,OObH , O a 8H, 
0C5H,0A0H, 0A3H, 040H, OAQH , 055H , 04CH , 
0 50H,052H, OOEH, C49H , 008 H , 0 E4H , 
0C5H,093H, 0C4H,04DH,09bH,05CH,04CH, 
06AH,CG5H, Q2CH, 049H,0D6H,070H, 
0C5H,08AH, ODBH, 04DH,080H , 027H,04CH , 
05FH,0E7H, 063H, 049H , 004H , 0C8H , 
GC5H,0 8;3H, ()6 3H,04DH,0 85H, 0F8H,04CH, 
060H,0F.Sh, 030H, 049H , 0D4H , 0 29H , 

0C5H, 06AH, 04BH, 040H, 084H , 067H,04CH , 
0blH,0E8H,0 8«H,049H,CD4H,0C;0H, 
0C5H,083H, 032H, 04DH , 083H , 0 1 5H, 04CH , 
062H,0E8H, OCUH, 049H , 0D3H , 0C4H, 
0C5H,C82H,01 AH,04OH,081H,0A2H,04CH, 
063H,0E9H, 01 5H , 049H , 0D3H , 09 7H , 
0CbH,08lH, 002H, 04fJH,080H,0 2FH,04CH , 
064H,0F9H, 0B9H, C49H , 0D3H , 06 i H , 
0C5H,0FFH, 0D2H,04CH,0FDH ,078H,04BH , 
065H,CE9H, 0 AOH , G49H , 0 D3H , 0 36H , 

0C5H ,CFDH , OA Ih , OACH, OF AH , 090H, 04BH , 
066H,0E9H, 0E5H, 049H,0D3H,007H, 
0C5H,0FBH, 06FH,04CH,0F7H ,0A7H,043H , 
067H,0£AH, 0?.Bh, 049h, 002H, 008H, 
0C9H,0F9H, 03EH,C4CH,0F4H,0BDH,04BH , 
068H,C£AH,06FH,049H,0D2H,0AAH, 
0C5H,0F7H, OOCH, OACH , OF IH , 0D2H, 046H , 
069H,0EAH,0B2H, 049H, 0D2H , 07FH, 
0C5H,0F4H, 0D9h,04CH,OEEH,OE6H,046H , 
06AH,0EAr-l,CF3H,049H,0D2H,0 6LH, 

OC 5H, OF 2H, OATH, OACH , 0 £ BH , 0F9H , CASH , 
06BH,0E6H, 038H, 0A9h, 0D2H,025H, 
0C5H,0F0H, 07AH,CACH,0E9H,00BH,0ABH, 
06CH,0EBH, 07AH, 0A9H,0D1H,0FAH, 
0C5H,0EEH, OAIH, 0ACH,0E6H ,OICH,OABH , 
0 60H,0EBf1, OBCH, 0A9H , C D1 H , 0 DO H , 
0C5H,0ECH, OOEH, OACH, 0E3H, 02 CH,OABH, 
06EH,0EBH, OFDH , 049H , OD 1 H , 0 A 5H , 
0C5H,0E9H, ODBH, OACH, CeCH ,03BH,0A6H , 
06FH,0ECH, 03DH, 0A9H, OOIH,07DH, 
0C5H,0E 7H, 0A8h ,OACH,ODDH,OA9H,OABH , 
070H,0ECH, 07EH, 0A9H ,0DIH,05AH, 
0C5H,0£5H, 07AH, 0ACK,00AH,057H,0ABH , 
071H.0ECH, OBEH, 0A9H,0D1H,02CH, 
0C5H,0E3H, OAOH, OACH, 0D7H, 063H,0ABH , 
072H,CECH, 0FDH,0A9H,0DlH,0CbH, 
0C5H,0Elh, OOCH, 0 aCH,GDAH, 06£H,0A6H , 
073H,0E0li, 0 3BH, 0A9H , ODOH , 0 DFH, 
0C5H,0DEH, 0D8H, OACH, 001 H,079H,0A8H, 
07AH,0EDH, 079H, CA9H , ODOH, OBAH, 
0C5H,00Ch, OAAH,OACH,OCEH, 083H,0ABH , 
075H,Ct0H, 0B7H, CA9H , 0 OOH , 09 AH, 
0C5H,0DAH, 06FH,0ACH,0CBH, 08bH,0ADH, 
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076H,0EDH, 0F4H,049H,0D0H,06FH, 
0C5H,0D8H, 03AH,04CH, 0CdH,093H,04BH» 
077H,OEEH,031H,049H,ODOH,048H, 
0C5H»0D6H, 005H,04CH,OC5H,09AH,04BH, 
078H,0EEH, 06DH,049Ht0D0H,028H, 
OC5HtCO3H,OD0H,O4CH,OC2H,0AlH,O48H, 
079H,0EEH, 0A8H,049H,0D0H,006H, 
OCSHiODlH, 09AH,04CH,0BFH ,0A6H,043H , 
07AH,OEEH,0E3H,O49H,OCFH ,0E4H, 
0C5H,0CFH, 065H,04CH, 0BCH,0AAH,04BH , 
07BH,0EFH,01DH,049H, OCFH,OC2H, 
0C5H,0CDH,02FH,04CH,0B9H,0AEH,04BH, 
07CH,0EFH, 058H,049H,0CFri,0AlH, 
OC5H,OCAH, OF9H,04CH,OB6H,OB1H,04BH, 
OOOH,OOOHt 0 00H,040H,000H,000H, 
040H,090H, 025H, 04EH,OF3H,080H,04CH , 
OOAHjOABH, OCFH, 049H,093ri, OF2H, 
0C6H,08 Ah, 03iH,04EH, 0E9H,0F8H,04CH , 
014H,0aiH,09FH,049H,094H, OBSH, 
0C6H,085H, 006H,04EHt0E0H,024H,04Cri, 
0 1 EHt037H, 042H, 049H , 0 94H , OC AH , 
0C6H,0FEH, 053H, 040H,CD6H,001H,04CH, 
028H,0BCH, OBBH, 049H,094Ht03BH, 
0C6H,0F2H, 05AH, G40H,0CBH , 08BH,04CH , 
032H,0C2ri, 008H, 049H,093h,017H, 

OC6Hf 0E6H, 017H,Q4DH, OCOH ,0C0H,04CH , 
03CH,CC7H,02EH,049H,091H,0b9ti, 
0C6H,0D9ri, 0 A OH, 04DHt0B5H t09CH504CH, 
046H,OCCH, 02EH, 049H, 08FH ,03AH, 
OC6H,CCUH, 004H,04DH,0AAH,0 1CH,04CH , 
050H,001H, 00BH,049H,08CH, 094H, 
OC6H,OCOH, 0 51H, 040H,0 9EH tOBEHtOtCH , 
05AH,0D8H, OCAH, 049H, 089H ,07CH , 
0C6H.0B3H, 093H, 04DH, 091H , 0FCH,04CH , 
05FH,CD9H, 049H,049H,086H,0E7H, 
OC6H,OADH, 035H,04DH,086H,OB6H,04CH, 
060H, OiJAH, OADh, 049H, 083H , OOCH, 
0C6H,0ABH, 0£FH,04DH,08AH,072h,04CH , 
06 IH, COBH, 022H,049H, 085H,070H, 
0C6H,OAAH,0AAH,04DH, 069H ,02CH,04CH , 
062H,GDBh, 097H,049H,085H,000H, 
0C6H,0A9H, 064H,04CH,087H,0E6H,04CH, 
063H,CDCH, 00CH,049H,084H,0A8H, 
0C6H,0A8H, 01FH,040H,086H,09EH,04CH, 
064H,0DCH, 082H, 049H, 084H , 049H, 
0C6H,CA6H, 0DAH,04DH,085H,056H,04CH, 
065H,0DCH, 0F5H,049H,083H, 0E2H, 
0C6H,0ABH, 095H,04DH,084H ,00CH,04CH , 
066H,ODDH,06AH,049H,083H ,07DH, 
0C6H,0A4H, 050H, 04DH , 0 82H , OC 2H , 04C H , 
067H,ODOH,OE1H,049H,083H,01CH, 
0C6H,0A3H, 00CH,04DH,081H,076H,04CH, 
068H,0DEH, 055H, 049H, 082H , 0D2H, 
0C6H,0A1H, OC7h,04DH,030H, 029H,04CH , 
069H,0DEH, 0C8H, 049H ,082H,049H, 
0C6H,0A0h, 083H,040H, OFOH ,0BSH,04BH , 
06AH,0DFH, 03DH, 049H,061H ,0E3H, 
0C6H,C9FH,03FH,04DH,0FBH,01AH,04BH, 
066H,0DFH,0B1H,049H,081H,077H, 
0C6H,09DH, 0FCH,04DH,0F8H ,07AH,046H, 
06CH,0ECH, 024H,C49H,081H ,OODH, 
0C6H,09CH,GB8H,04DH,0F5H,0D8H,04BH, 
G6DH,0E0H, 09AH,049H,C80H ,OAOH, 
0C6H,09BH, 075H,04DH,0F3H ,034H,04BH , 
06EH,0E1H,008H,049H,08GH,02FH, 
0C6H,09AH,O33H,04DH,0F0H,O8EH,04BH, 
06FH,0ElH,0 80H,049H,0FFI-i ,030H, 
0C5H,098H, 0FOH,O4DH,OEOH,OE6H,O4BH, 
G70H,0E IH, OF IH , 049h , OFEH , 0A9H , 
0C5H,097H, 0AEh,C4DH,0EBH,033H,04BH, 
071H,0£2H, 068H, C49H,0FDH, 0D5H, 
0C5H,096H, 06CH, 040H, 0E8H , 08EH,04BH , 
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072H,0E2H, 0D9H, 049H, 0FCH , OECH, 
0C5H,O95Ht 02BHt09DH,0E5H,0E0H,04BH, 
C73H,OE3H, 09CH, 049H, 0FCH,009H, 
0C5H,093H, OFAH, 04nH,0E3H,02FH,04BH, 
074K,0E3H, OBEH , 049H , 0F8H , 0 2 2H» 
0C5H,092H, OAAH, O4DH,OE0H,O7BH,O4BH, 
075H,0E4H, 033H , G49H , OFAH , 03FH, 
0C5H»091H, O69H,O4DH,ODOH,OC6H,04BH , 
076HtOE4ri, 0A4H,049H,GF9H,054H, 
0C5H,090K, 02AH» C4DH, ODBH, 0OEH,04BH , 
077Ht0E5H, 01 7H,049H,0F8Ht066Ht 
OC5H»08EH, 0EAH,04DH,0D8H ,054H,04BH , 
078Ht0E5H, 08AH,049H, 0F7H,07EH, 
0C5H,08DH, 0ABHt04DH,0D5H,098Ht043H, 
C79H,0E5H, OF FH , 049H , 0F6H , 093H , 
0C5H,08CHt 06DH,04 0Ht0D2H t0DAH,048H, 
O7AH,0E6H, 06FH » 049H , 0F3H , 09FH» 
0C5H,O8BHt 02FH,040Ht0D0H,0 lAil,04Bri, 
07BH,0E6H,0E3H,049H,0F4H,0B0H, 
0C5H,089Ht 0F2H,04DH, OCDH , 057H, 04BH , 
07CH,0E7 Ht05oHt 049H,0F3H,08DH, 
0C5Ht0 88r<, 0B5H,C4DH.OCAH,O92H,043H, 
OOOH, GOOh, OOOH t 040Hf OOCH ,000ri, 
040H,0FAHt O00H.O4Bh,0E7H,035H,O4CH, 
OOAH ,G96H, OOOri, 049H t OOOH , OOOH , 
040H,OFAH, 000H,043H,0DCHt0CBHt04CH , 
Gi4H,096H, OOOH, 04 9H, OOOri , OOOH, 
040H,OFAH,OOOH,04BH, 0D2H , 06 OH , 04CH , 
01EH,095H, OOOH, 049H, OOOH, OOOH, 
04OH,0FAH,OO0H,O4BH,OC7H,OF5H,O4CH, 
C28H,096H, OOOH, 049H , OOOH , OOOH , 
040H,0FAH, 00OH,O4BH,OBnH,O8BH,O4CH, 
032H,096H, OOOH, 049H, OOOH, OOOH, 
040H,0FAH, 000H,04BH,0B3H,020H,04CH, 
03CH.C96H, OC OH, 049H, OOOH , OOOH, 
04OH,0FAH,OCOH,O4BH, 0A8H,065H,04CH, 
046H ,096 H, OOOH, 049H, OOOH, OOOH, 
040H,0FAH,0OOH,O4 &h, 09EH,043H,04CH, 
050H , 096H , OOOH , 049H , OOOH , OOOH , 
040H,0FAH,OOOH,04Bh,093H,OEOH,04CH, 
05AH,C96H, OOOH , 049H , OOOH , OOOH, 
040H,OFAH, 0OOH,O4BH ,089H, 075H,04CH, 
05FH,096H, OOOH, 049H, OOOH , OOOH, 
040H,CFAH,0C0H,046H,084ri, 040H,04CH , 
060H,096H, 000H,049H, OOOH, OOOH, 
040H,CFAH, 000H,04BH,083H,035H,0ACH , 
061H,096h, OOOH, 049H, OOOH ,000H, 
040H,0FAH, 000H,048H,082H, 02BH,04CH, 
062H,096H, OOOH, 049H, OOOH, OOOH, 
040H,OFAH, 000H,043H ,081H,020H,04CH , 
063H,096h, OOOH, C49H, OOOH , OOOH, 
040H,0FAH, 000H,04BH,0e0H,015H,04CH, 
064H ,096H, OOOH , 049H , OOOH , OOOH , 
040H,0FAH,000H, 04BH,0FEH,0 16H,046H, 
065H,096H, OOOH, 049H , OOOH , OOOH , 
040H,OFAH,OOOH,046H,OFCH,OOOH,04BH, 
066H ,096H, OOOH, 049H, OOOH , OOOH, 
O4OH,0FAH,OOOH,O4BH,OF9H,0EBH,O43H , 
06 7H,096H, OOOH, 049H, OOOH, OOOH, 
040H,0FAH, 000H,04BH, 0F7H, 0D6H,043H, 
06 8H,096H, OOOH, 049H, OOOH, OOOH, 
040H,0FAH, 000H,O4BH,0F5H,0C0H,04BH , 
069H,096H, OOOH, 049H, OOOH, OOOH, 
040H,OFAH,O00H,O4BH,0F3H,0ABH,O43H, 
06AH,096H, OOOH, 049H , OOOH , OOOH , 
040H,0FAH, OOOH,04BH ,0F Ih , 09cH , 048H , 
06BH,096H, 0 OOH , 049H , OOOH , OOOH , 
040H,0FAH, OOOH, 04BH, OEFH ,08 IH,04BH , 
06CH,C96H, OOOH,049H, OOOH, OOOH, 
040H,OFAH,OOOH,04BH,OEDH,06BH,04BH, 
06DH,096H, OOOH, 049H, OOOH , OOOH, 
040H,OFAH, OOOH, 04BH,0EBH, 056 H,04BH , 
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06EH,096H, OOOH, 049H , OOOH , OOOH , 
040H,0FAH, O0OH,O4BHt 0E9H,041H,O43H , 
06FH, 096H, OOOH , 049H , OOOH , OOOH , 
040H,0FAH, 000H,04BH, 0E7H,02BH,04BH, 
070H,096H,000H, 04 9H , OOOH , OOOH , 
040H,0FAH, OOOH, 04BH, 0E5H , 016H,048H , 
07 1 H, 0 96H, OOOH, 049H, OOOH, OOOH, 
040H,0PAH, 000H,04BH,0E3H , 001H,04BH, 
07?.H,096H, OOOH, 04 9H, OOOH, OOOH, 
040H,0FAH, 000H,04BH,0ECH,0EBH,C4BH, 
073H,096H, OOOH , 049H , OOOH , OOOH, 
040H,0FAH, 000H,04BH,00EH, 006H,048H , 
074H,096H, OOOH, 049H, OOOH, OOOH, 
040H,0FAH, OOOH, 048H, ODCH ,0CIH,043H , 
075H,096H, OOOH , 049H , OOOH , OOOH , 
040H,0FAH, OOOH, 048H , 00 AH , 0 ABH , 04BH , 
076H, 096H, OOOH, 049H , OOOH , OOOH, 
G40H,0FAH, OOOH , 04BH , 008H , 096H, 043H , 
077H,096H, OOOH , 049H , OOOH , OOOH, 
040H,0rAH,000H,048H,0D6H,081H,04BH, 
078H,09tH, OOOH ,04 9H, OOOH, OOOH, 

040H, OFAH, OOOH, 04BH,004H, 063H,04BH, 
079H,096H,OOOH,049H, OOOH, OOOH, 
040H,CFAH, OOOH, 04BH,0D4H, 06BH,04BH, 
07AH,096H, OOOH , 049H , OOOH , OOOH , 
040H,QFAH, OOOH , 048H , ODOH , 04 IH , 04BH , 
07BH,096H, OOOH , 049H , OOOH , OOOH , 
040H,0FAH, OOOH, 046H,0CEH, 02BH,04BH, 
07CH,096H, OOOH, 049H, OOOH, OOOH, 
040H,0FAH, 000H,C4BH ,OCCH , 016H, 043H , 
OOOH, 00 CH, OOOH, 040H, OOOH, OOOH, 
040H,08BH, 01DH,04DH,0A3H,061H,04DH, 
00AH,0E1H, 000H,049H,0A0H ,OOOH, 
0C4H,086H, 0FDH,04DH,C9Bri ,OB0H,04DH , 
014H,0E1H, OOOH, 049H,0A0H, OOOH, 
0C4H,082H, OOOH, 04DH,093H, 0FEH,04DH , 
0 1 EH, OE 1 H, OOOH, 049H,0A0H , OOOH, 
0C4H,0FDH, 07CH,04CH,08CH ,04CH,04DH , 
028H,OE1 H, OOOH, 049H,0A0H, OOOH, 
0C4H,0F5H, 03CH,04CH,08^H, 093H,04DH , 
032H,0EiH, OOOH , 049H , OAOH , OOOH , 
0C4H,CECH, OFDH,04CH ,0F9H ,0D3H,04CH, 
03CH,0EIH, OOOH, 049H , OAOH , OOOH, 
0C4H,0E4H, 0BDH,O4CH,OEAH,O7OH,O4CH , 
046H,0E IH, OOOH, 049H , OAOH , OOOH, 
0C4H,0DCH, 07EH, 04CH, 0D3H ,00CH,04CH , 
O50H,0ElH,000H,O49H,0A0H,000H, 
0C4H,0D4H, 03EH,04CH,0CBH,0A9H,04CH, 
05AH, OF IH, OOOH , 049H , 0 A OH , OOOH , 
0C4H,0CBH, 0FFH,04CH,0eCH ,046H,04CH, 
05FH,0E1H, 000H,049H,0A OH, OOOH, 
0C4H,0C7H, 0DFH,04CH, 054H,094H,04CH, 
060H,GE1H,000H,049H,0A0H ,000H, 
0C4H,CC7H, OOCH,04CH,OB3H,OOAH,04CH , 
061H,OE1H,OOOH,049H,OAOH,OCOH, 
0C4H,0C6H, 036H,04CH,OBIH,080H,04CH, 
062H,0EIH, OOOH, 049H, OAOH , OOOH, 
0C4H,GC3H,065H,04CH,0AFH,0F7H,04CH, 
063H,0E1H, OOOH, 049H, OAOH, OOOH, 
0C4H,0C4H, 092H ,04CH, 0 A EH, 060H,04CH , 
064 H, OE IH, OOOH, 04 9H, OAOH , OOOH, 
0C4H,0C3H, OBFH, 04CH, OACH ,0E3H,04CH , 
065H, OEl H, OOOH, 04 9H, OAOH, OOOH, 
0C4H,0C2H, OECH, 04CH , OABH , 059H, 04CH , 
066H,0E1H, OOOH, 049H, OAOH , OOOH, 
0C4H,0C2H, 01 9H, C4CH, 0 A9H , C CFH , 04C H , 
067H,0E1H, 00 OH, 049H, OAOH, OOOH, 
0C4H,0C1H,046H, 04CH,0A8H,045H,04CH, 
068H,0ElH,000H,049ri, OAOH, OOOH, 

0C4H, OCOH, 0 72H, 04CH, 0A6H , 0BBH,04CH , 
069H,0E1H, OOOH, 04 9H, OAOH, OOOH, 
0C4H,0BFH, 09FH,04CH, OABH, 031 H,04CH, 
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06AH tO£ IH, OOOH, 049H tOAOri ,000H, 

0C4H, 03EH, OCCH, OACH, 0A3H ,0A7H,04CH , 
O6BH,OElH,0O0HtO49H, OAOHtOOOH, 
0C4H,0BDHt 0F9H,04CH,0A2H, 01DH,04CH» 
06CH»0E1H,000H,049H,0A0H ,OOOH, 
0C4H,03DH, 026H,04CH ,OAOH ,093H,04CH , 
06DH,0E1H, 000H,049H,0A0H ,OOOH, 
0C4ri,0BCHt0 53H, 04CH,09FHf 009H,04CH , 
06 EH, OE 1 H, 00 OH, 04 9H, OAOH ,OOOH, 
0C4H,0BBH, 0d0H,04CH,09DH,080H,04CH , 
06FH,0E1H,000H,C49H,0A0H,CC0H, 
0C4H,08AH, 0ACH,04CH,096H,0F6H,04CH , 
070H,0E IH, OOOH, 049H, OAOH ,000H, 
0C4H,0B9H, 009H,04CH,09AH,06CH,04CH , 

0 7 I.H, OE 1 h, OOOH, 049H , OAOH, OOOH, 
0C4H,0B9H,006H,04CH,093H,0E2H,04CH , 
072H ,0£ IH, OOOH, 049H , OAOH , OOOH, 
0C4H,0B3H, 0 3 3H,04CH , 097H ,0 58H, 04CH. , 
073H,0E1 H, OOOH, 04 9H , OAOH , OOOH, 
0C4H,037H, C60H, 04CH,095H,0CEH,04CH , 
074H,0E1H, OOOH, 049H, OAOH , OOOH, 
GC4H,0B6H, 08DH,04CH,094H,044H,04CH, 

0 75H,0EIH, 000H,049H, 0A0H,000H, 
0C4H,0B5H, 0B9H,04CH, 092H,08AH,04CH, 
076H,OE1H,OOOH,049H,OAOH ,000H, 
0C4H,0B4H, 0E6H, 04CH, 091H ,0 30H,04CH , 
077H,0E1H, 000H,049H, OAOH, OOOH, 
0C4H,0B4H, 013H,04CH, 03FH,0A6H,04CH, 
078H,0E1H, 000H,049H, OAOH , OOOH, 
0C4H,0B3H,040H, 04CH,08EH ,01CH,04CH , 
079H,0E1H, OOOH, C49H, OAOH, OOOH, 
0C4H,0B2m, 0 6DH, 04CH,0 8CH,09 2H,04CH , 
07AH,0E1H, OOOH, 049H, OAOH, OOOH, 
0C4H,031H, 09AH,04CH,0 8BH,008H,04CH , 

0 7BH,0E1H, OOOH, 049H, OAOH, OOOH, 

0C4H, 080H, 0C7H,04(:H,089H,07FH,04CH , 
07CH,0E1H, OOOH,049H, OAOH , OOOH, 
CC4H,CAFH,0F3H,04CH, 087H ,0F5H,04Cri] ; 



DECLAP E 
OECLAPE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 

DECLARE 

DECLARE 

DECLARE 

MCM: 



MCN2: 



•OABH* 
• OBBh' 



INIT LITERALLY 'OCOH'; 

DAT LITERALLY 'OOOH'; 
Sc.^DSID'^JJ LITERALLY 
FRCHS5UFFER LITERALLY 
EMPTY LITERALLY *OCCH’; 
INTER LITERALLY 'OBOH*; 

(INDX,PIO) ADDRESS; 

{ RUN, IDNG, RST, I BP) BYTE; 

nCLE, I,TI,NI, J,NUMB) BYTE 
TABLEIBO) BYTE; 



I* ; 



ENTER LITERALLY '3FFDH'; 
RDBUFF(130) BYTE; 

FOREVER LITERALLY 'WHILE 
PROCEDURE ( FUNC, INFO) ; 

DECLARE FUNC BYTE, INFO ADDRESS; 
GO TO ENTER; 

END MONl; 

PROCEDURE ( FUnC, INFO IBYTE ; 

DECLARE FUNC BYTE, INFO ADDRESS; 
GO TO ENTER; 

END MON 2; 



PRINTCHAR: PROCEDURE ( 8) ; 

/« SEND THE ASCII 
DECLARE B BYTE; 
CALL MONl (2, B) ; 
END PRINTCHAR; 



CHARACTER B TO THE CONSOLE 



CRLF: PROCEDURE; 

/# SEND CARRIAGE-RETURN-L INE-FEEO 



CHARACTERS */ 
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CALL PRINTCHAR(OOH) ; 
CALL PRFMTCHAR(OAH) ; 
END CRLF; 



PRINT: 


PROCEDURE ( A) ; 

/* PRINT THE BUFFER STARTING AT ADDRESS A */ 
DECLARE A ADDRESS; 

CALL M0Nl(9,A); 

END PRINT; 


READ: 


PROCEDURE ; 

/« READ CONSOLE CHARACTERS INTO ‘RDBUFF' */ 
RDBUFF=128; /- FIRST BYTE SET TO BUFF. LENGTH*/ 
CALL MONK 10, .RDBUFF); 

END READ; 


TRANS: 


PROCEOUREIB) BYTE; 

/* RETURNS THE ASCII CHARACTER OF THE NUMBER */ 
DECLARE B BYTE; 

IF B<10 THEN RETURN B+'O*; 

ELSE RETURN 3-10<-* A' ; 

END TRANS; 


CCNV: 


PROCEDURE! B) BYTE; 

DECLARE B BYTE; 

/* RETURNS THE VALUE OF THE NUMBER CHARACTER */ 
RETURN 3- ' O' ; 

END CONV; 


GETC: 


PROCEDURE BYTE; 

RETURN RDBUFFd I BP : = 1 0 P+ 1 ) - 1 ) ; 
END GETC: 


RE ADC: 


PROCEDURE BYTE; 
DECLARE B BYTE; 
B=GETC; 

RETURN B; 


READF: 


END READC; 

PROCEDURE BYTE; 

DECLARE 5 BYTE; 

B- CONVI READC); 

/* FIRST CHARACTER IS MULTIPLIED BY 10 */ 
RETURN SHL(8,3 ) +SHL( B,3 ) +CCNV ( RE ADC ) ; 

END READP; 


>CLCCK: 


PROCEDURE BYTE; 

DECLARE T(4) BYTE, I BYTE; 

DO 1=0 TO 3; 

T( I ) = INPUT(6) ; 

END; 

00 1=0 TO 2; 

IF T(U1)=T(I) THEN RETURN 255-T(I); 
END; 

CALL CRLF; 

CALL PRINT!. ‘CAN NOT READ TIME.$*); 
RETURN I; 

CLOCK; 


NEGAT: 


PROCEDUREiV) BYTE;/* TRUE IF NUMBER IS NEGAT.*/ 
DECLARE V ADDRESS, W BASED V BYTE; 

IF (W!2) AND 30H) <> 0 THEN RETURN 1; 

ELSE RETURN 0; 

END MEGAT; 


DECLARE 

RANT; 


DEC(4) BYTE; 

PROCEDURE !W) ; 

/* FILLS UP A VECTOR OF 4 INTEGERS THAT 
REPRFSENTS THE CONVERSION OF THE MANTISSA 
TO DECIMAL FORM */ 

DECLARE W ADDRESS, Y BASED W BY^E; 

DECLARE ! ONE , TWO, THREE , FOUR) ADDRESS, 

! AUX, TEMPjOI ) ADDRESS, 

(I,J,K) BYTE; 
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/A 

L' 

^ (j) 
/ 

DEC IK: 
-^INTEG: 



PC7EN: 



^INOEX: 



ONE = SHR( Y ,4)*625 ; 

AUX=(Y AND 0FH)«3906; 

T^<n=AUX/ 100 ; 

AUX=AUX-( TWO*100) ; 

TE,MP=AUX; 

AUX = SHR<Y( 1 ), 41^244; 

THREE=AUX/i00; 

AUX=A‘JX-( THREE’iaOO ) ; 

TEMP=TEKP+AUX ; 

AUX=(Y( li AND 0FH)^15; 

FOUR=AUX/lOO; 

AUX=AUX-( FOUR'-nOO) ; 

T E M P = T E M ? + A U X + 5 0 ; 

AUX = OiN!E +TWO + THREE+FOUR+T6MP/1O0; 

DO I=l TO 4; 

J=4-I ; 

Dl = l; 

DO K=1 TO J; 

0I=--10=!^DI ; 

END; 

CEC( I )=AUX/OI ; 

AUX=aUX-DEC( n=:'DI ; 

END: 

END KANT; 

PROCEDURE ( Q) ; 

DISPLAYS THE DECIMAL POINT AND FRACTIONAL 
PART OF VARIABLE 
DECLARE 0 BYTE; 

CALL PRINTCHAR (•.'); 

CALL PRINTCHARITRANS (Q) ) ; 

RETURN; 

END DECIM; 

PROCEDURE ( R,N) BYTE; 

/* DISPLAYS THE INTEGER PART OF VARIABLE 
AND RETURNS THE REMAINDER o THE ARGUMENT 
IS 10 TIKES THE VARIABLE 

DECLARE ( I t N» JtRES, VI BYTE, (R,DII ADDRESS; 
DECLARE K BYTE; 

DO 1=0 TO N-l; 

J=N-I ; 

01 = 10 ; 

DO K=i TO J“l; 

DI=10*DI ; 

END; 

V=R/DI ; 

CALL PRINTCHAR (TRANS (VI) ; 

R=R-V*DI ; 

END; 

R P • 

RETURN RES; 

END INTEG; 

PROCEDURE(Y) ADDRESS; 

COMPUTES THE EXPONENTIAL PART OF THE 
NORMALIZED NUMBER >:'/ 

DECLARE Y ADDRESS, X BASED Y BYTE; 

DECLARE VAL ADDRESS; 

DECLARE (N,I) BYTE; 

N=X(2I AND 3FH; 

VAL=1 ; 

DO I=I TO N; 

VAL = SHL( VAL,1 ) ; MULT. BY 2 

END ; 

RETURN VAL; 

END POTEN; 

PROCEDURE(T) BYTE; 

/« USING REAL TIME .FINDS THE INDEX TO 
THE NAVTAB -/ 

DECLARE T BYTE; 
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DSFLV: 



i-3 



^-5 



‘-u 
^ i 



>DI SPLAY 



IF T < 93 THEN RETURN T/10; 

ELSE DO; IF T <= 95 THEN RETURN 
ELSE RETURN T-95+10; 

END; 

END INDEX; 



10 ; 



PROCEOURE(P,M); 

/* THIS PROCEDURE CONVERTS THE HEXADECIMAL 
VALUES TO DECIMAL FORM IN ORDER TO BE 
DISPLAYED */ 

DECLARE ( P, ACUR,REM, AUX ,UP ) ADDRESS, 

(DI ,ONE,TWO,DN) ADDRESS, 

( M, LOW, I ,TEMP, J ,N ,K,L,6TE ) BYTE; 

IF NEGAT(P) THEN CALL PR INTCHARI ' ; 

CALL f'5ANT(P); 

ACUM=0; 

REM=0; 

AUX=PGTEN (PI ; 

UP=AUX/10; 

LOW=AUX- ( UP*10) ; 

DO 1=1 TO 4; 

AUX=UP*OEC( II ; 

TEMP=LOW*DEC( H ; 

J=I~1 ; 
ci = l ; 



00 K=l TO j; 

Dl = 10+-DI ; 

END; 

N=3-I ; 

DN = l; 

00 L=1 TO N; 

DN= 10=!=DN; 

END; 

CNE=AUX/DI ; 

TWO=( (AUX-(CNF.=;‘DI) I =>= 1 0 <-T EMP ) ':=DN ; 
IF (1=4) THEN TWO=TWC/iO; 

acum=acum4-gne; 

REM=REM+TWO; 

END; 

ACUM=ACUM<PEM/1000; 

REM=REM-( REM/ 1000) *1000; 

DO 1=1 TO M; 

J=M-I ; 

DI = l; 

DO K=1 TO J; 

DI=10*DI; 

END; 

BTE=ACUM/DI ; 

CALL PRINTCHAR(TRANS(BTE) ) ; 
ACUM=ACUM-BTE*OI ; 

END; 

CALL PRINTCHAR( * . ' I ; 

DO 1=1 TO 2; 

J=4-I ; 

D I = 1 ; 

DO K=1 TO J; 

DI=10*DI ; 

END; 

BTE=REM/DI ; 

CALL PRINTCHAR{ TP.ANS (6TE) ) ; 

REM.= REM-BTE*DI ; 

END; 

END DSPLV; 



: PROCEDURE! INO) ; 

/* THIS i>ROCEOUR£ DISPLAYS THE PCSITION, 
SPEED AND DIVE ANGLE OF THE AIRCRAFT */ 
DECLARE (VAX,IMD) ADDRESS, RST BYTE; 
CALL CRLF; 

CALL PRINT!. *AT TIME: $‘); 

VAX=NAV TAB! IND) ; 

RST=INTFG<VAX,2) ; 
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CALL DECIM(RST); CALL PRINK.' SECONDS $•) 

INO=IMO+l ; 

CALL CRLF; 

CALL PRINK . • SPEED= $ ' ) ; 

CALL OSPLVl .NAVTABUND) ,3 ) ; 

CALL PRINK.* KNOTS $•); 

IND=IND+3 ; 

CALL CRLF; 

CALL PRINK. 'DIVE ANGLE= S'); 

CALL DSPLVI .NAVTABI IND) ,2) ; 

CALL PRINK.' DEGREES $•); 

INC=INO+3 ; 

CALL CRLF; 

CALL PRINK .* ALTITUDE=$ •) ; 

CALL DSPLVI .NAVTABI IND) ,4 ) ; 

CALL PRINK .' FEET $' ) ; 

IND=IND+3 ; 

CALL CRLF; 

CALL PRINT! .' DISTANCE TO TARGET^ $•); 

CALL DSPLVI .NAVTABI IND) ,4) ; 

CALL PRINT! YARDS $' ) ; 

CALL CRLF; 

CALL CRLF; 

RETURN; 

END DISPLAY; 

FLCAT; PROCEDURE! INN, FA) ; 

/« A PROCEDURE TO CONVERT AN INTEGER INN TO 
A FLOATING POINT WHOSE. MANTISSA IS FOUND IN 
ADDRESSES FA AND FA+1 AND WHOSE EXPONENT 
IS IN FA «-2 

DECLARE ! INN, FA) ADDRESS ,MANN ADDRESS, 

MANT BASED FA BYTE, 

INT BASED INN ADDRESS, 

N BYTE; 

IF INT =■- 0 /* CHECK FOR ZERO INPUT */ 

THEN DO; 

HANTI2) ,MANT! 1 ) ,MANT = 0; 

RETURN ; 

END; 

PANT! 2) = EOH; /* EXPONENT = 2=^-«16 

MANN! ^ INT; 

IF ( MANN AND 8000H) = 8000H THEN 
/« -NEGATIVE INTEGER */ 

DO; MANTI2) = MANT(2) OR BOH; /* SET SIGN BIT 
MANN = 1-MANN ; COMPLEMENT 

END; 

N = 1; NORMALIZE MANTISSA 

DO WHILE !! SHLIMANN,!) AND SOOOh) <> 3000H); 

N'=N+ 1 ; 

MANN = SHLIMANN,!); 

END; 

MANN= SHL(MANN,1 ) ; 

HANTI2) = MANTI2) * N; /« ADJUST EXPONENT */ 

MANT = HIGH(MANN); /* ASSIGN MANTISSA 

MANT(l) = LOW! MANN); 

RETURN ; 

END FLCAT; 

DECLARE ZE BYTE, ZZ ADDRESS; 

DECLARE YL- BYTE,XE BYTE; 

/* FLCAT I NG POINT ADO ROUTINE-/ 

ADO: PROCEDURE (XA,YA,PA); 

DECLARE <XA,YA,ZA) ADDRESS, 

FA ADDRESS, P BASED PA BYTE, 

!I,R2,Y2, DIGIT, SINE) BYTE, 
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X BASED XA BYTE, 

Y BASED YA BYTE, 

(XX, YQ) ADDRESS; 

/=!' PFCCEDURE TC LEFT JUSTIFY MANTISSA IN BINARY 
ADJUST: PROCEDURE; 

DO 1=0 TO 15; 

IF iZl AND 8000H»=8000H THEN RETURN; 
ZZ=SHL( Z7, 1 ) ; 

ZE=Z£-1; 

END; RETURN; 

END ADJUST; 

XX=SHL( OOUBLE(X) ,8) OR X(l); 

YC=SHL(DCU6LE(Y) ,0 ) OR Y(l); 

R2= X(2) AND 7FH; 

Y2= Y(2) AND 7FH; 

DI GIT=R2~Y2 * 

SINE =(X(2) AND 80H) XOR (Y(2) AND 80H) ; 

IF (DIGIT AND 80H)00 THEN D I G I T = -OI G IT ; 
IF DIGIT >= 16 THEN DO; 

/« VARIABLES NOT WITHIN SIGNIFICANCE RANGE */ 

IF R2 > Y2 THEN DO; 

ZZ=XX; ZE=X(2); GO TO RET; 

END; 

ZZ=YQ; ZE=Y(2>; GO TO RET; 

END; 

IF Y2 = R2 THEN DO; 

/'-s EXPONENTS EQUAL IN ABSOLUTE VALUE */ 

IF YQ>XX THEN DO; 

Y > X '*/ 

ZE= Y( 2 > ; 

IF SINE < 80H THEN GO TO EXITl; 

GO TO EXIT2; 

END; 

IF YQ<XX THEN DO; 

/=!= X > Y 



Z E = X ( 2 ) * 

IF SINE < SOh’tHEN GO TC EXITl 
GO TO EXIT3; 

END; 

/« X = Y =!=/ 

IF SINE < 80H THEN DO; 

ZE=X(2); GO TO EXITl; END; 



zz=o; 

ZE = 0; 
GO TO RET; 
END; 

IF Y2 > R2 THEN DO; 

/* Y > X «/ 



ZE = Y(2); 

XX=SHR(XX, DIGIT) ; 

IF SINE < 30H THEN GO TO EXITl 
GO TO EXIT2; 






END; 

/* X > Y «/ 

ZE — X(2)i 

YQ=SHR(YqToIGIT) ; 

IF SINE < 80H THEN GO TO EXITl; 
GO TO EXITS; 

EXITl: 

ZZ=XX+YQ; 

IF CARRY THEN DO; 

ZZ=SCR(ZZ, 1 ) ; 

ZE=ZE +i; 

END; 

GO TO RET; 

EXIT2: 

ZZ=YQ-XX; 

CALL ADJUST; 

GO TO RET; 

EXITS: 






133 



ZZ=xx-yq; 

CALL ADJUST; 

RET: P=HIGH(ZZ) ;P( 1 )= LOW ( Z Z ) ; P ( 2 ) =Z E ; 

RETURN; 

END ADD; 

SUB: PROCEDURE (AD, BO, CD); 

DECLARE (AD, BD,CD) ADDRESS, 

A EASED AO BYTE, 

B BASED BD BYTE, 

C BASED CD BYTE; 

DECLARE BC (3) BYTE; 

BC(0)= 8(0) ; 

BC( 1 )= B( 1 ) ; 

BC(2)= B(2) XOR 80H; 

CALL ADD ( AD, .BC,CD) ; 

END SUB; 

FLOATING POINT MULTIPLY ROUTINE 
MULT: PROCEDUREIXA, YA,PA) ; 

DECLARE SAVE BYTE; 

DECLARE I BYTE, 

XA ADDRESS, X BASED XA BYTE, 

YA ADDRESS, Y BASED YA BYTE, 

FA ADDRESS, P BASED PA BYTE, 

TC ADDRESS, TT ADDRESS; 

SAVE=X( 1 ) ; 

IF (X=0) OR (Y=0) THEN DO; 

ZZ=0; ZE=0: GO TO RET; END; 

X(l)=SHR(X(l),l); 

TT= SHL(DOUBLE(X ) ,7) OR X(l); 

TC=ShL(DCUBLE(Y) ,8 ) OR Y(l); 

ZZ = 0; 

DC 1=0 TC 15 BY 1; 

ZZ= SCR < ZZ, 1 ) ; 

TC= SCR(TQ,IJ ; 

IF (CARRY) then DO; 

ZZ= ZZ+TT; 

END; 

end; 

IF (ZZ<8000h) THEN DO; 

ZZ= SHL( ZZ, 1 ) ; 

ZE=-l; 

END; 

ELSE ZE=0; 

/* ADD EXPONENTS 

ZE = ((X(2) AND 7FH) +(Y(2) AND 7FHJ-64 i-ZE) 

OR ( (X(2) AND BOH) 

XOR ( Y(2) AND 30H)>; 

RET: P=HIGH(ZZ) ;P( i )= LOW ( Z Z) ; P ( 2 ) = ZE ; 

X( 1)=SAVE; 

RETURN; 

END MULT; 

/« ROUTINE TO COMPARE TWO FLOATING POINT VARIABLES */ 
/« IF X<Y C0MPAR£=0 
X=Y C0MPARE=1 
X>Y C0MPARE=2 */ 

COMPARE: PROCEDURE (XA,YA) BYTE; 

DECLARE X BASED XA BYTE, 

Y BASED YA BYTE, 

( XA,YA,CHECK1 ,CHECK2 ) ADDRESS, 

(XP,YP) BYTE; 

/* EQUAL EXPONENTS */ 

XE=X(2) AND 80H; 

YE=Y (2 ) AND 80H ; 

IF ( Xe=YE ) THEN DO; 

XP=X(2) AND 7FH; 

YP=Y(2) AND 7FH; 

CHECKl=SHL(DOUBLE(X) ,8 ) OR X(l); 
CHECK2--SHL(D0UBLE(Y),8) OR Y(l); 
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IF ( XE=80H ) THEN DO; 

IF ( XP<YP ) THEM RETURN 2; 

IF (XP > YP ) THEN RETURN 0; 

IF CHECK2 < CHECKl THEN RETURN 0; 
IF CHECK2 > CHECKl THEN RETURN 2; 
RETURN l; 

END; 

IF { XP < YP ) THEN RETURN 0; 

IF ( XP > YP ) THEN RETURN 2; 

IF CHECK2 < CHECKl THEN RETURN 2; 

IF CHECK2 > CHECKl THEN RETURN 0; 

RETURN 1; 

END; 

IF ( XE = 0 ) THEN RETURN 2; 

RETURN 0; 

END COMPARE; 

DIV: PROCEDURE (XA,YA,PA); 

DECLARE (XA,YA,ZA»B,XX,YQ) ADDRESS, 

PA ADDRESS, P BASED PA BYTE, 

I BYTE, 

X BASED XA BYTE, 

Y BASED YA BYTE, 

C (3) BYTE; 



XX=SHL( DOUBLE(X ) , 8 ) OR X(l); 

YC=SHL( D0U3LE(Y) ,8) OR Y(l); 

IF XX =0H THEN DO; 

ZZ=oh; ZE=oh; go TO RET; 

END; 

XX=SHR(XX, 1) ; 

YG=SHR( YQ, 1 ) ; 

ENTQ: ZZ=0; 

C(2I= X(2); 

1 = 1 ; 

B=XX-YQ; 

IF NOT CARRY THEN DO; 

IF B=0 THEN DO; 

ZZ=8000H; 

ZE=((( X(2I AND 80HJ XOR ( Y(2) AND 80HJ) 

OR ((C(2) AND 7FH)-<Y(2) AND 7FHM-65J); 
GO TO RET; 

END ; 

GOTO ENT2; 

END; 

XX=SHL(XX, 1) ; 

C(2)= (C(2> AND 7FH) - l; 

ENTl: B=XX-YC; 

IF CARRY THEN DO; 

XX=SHL(XX,n ; 

GOTO 5NT3; 

END; 

/« NO CARRY, ADD ONE TO DIVIDEND TO MANTISSA AND 

SHIFT LEFT */ 

ENT2: XX=SHL(B,1); 

/=!= CARRY SHIFT DIVIDEND MANTISSA LEFT */ 

ENT3: ZZ = SHL(ZZ,1 1 ; 

1 = 1 + 1 ; 

IF I< 16 THEN GOTO ENTl ; 

J(2) and 80H) XOR ( Y(2) AND 80H1) OR 

((C(2) AND 7FHI - ( Y(2) AND 7FH)+65)); 
RET: P=HIGH( ZZ) ; P( 1 >= LOW ( ZZ ) ; P( 2 ) = Z 6 ; 

RETURN; 

END DIV; 

DECLARE ROT BYTE; 

DECLARE (DTT.DRT) (3) BYTE; 

DECLARE < IJ, TZ, ZI ) BYTE; 

DECLARE BUFF(27) BYTE; 

DECLARE tINBfOUTB) BYTE; 
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DECLARE FT(12) BYTE; /« FLOATING POINT TIME ARRAY «/ 
DECLARE ( ROtROl , ROOl , SRO, SROl ) (12) BYTE; 

INTERMEDIATE RESULTS OF THE PROCEDURE POLIN 
DECLARE CONS(27) BYTE; CONSTANTS OF POLINOMIAL 

/* COEFFICIENTS OF THE POLINOMIALS */ 

DECLARE (OTTPtDRTP) (12) BYTE; 

DECLARE AUX(21) BYTE; 

DECLARE (EXVAL, EXDTTfEXDRT) (3) BYTE; 

DECLARE RTM BYTE; 

FTAB: PROCEDURE; 

/* FILLS THE VECTOR OF FLOATING POINT TIME */ 
/« NECESSARY FOR THE POLIN PROCEDURE «/ 
DECLARE (I,J,K) BYTE, TIM ADDRESS; 

DECLARE CTE(3J BYTE ; 

CTE=0A0H; 

CTEd )=0H; 

CTE(2)=44H; 

DO 1=0 TO 3; 

K=SHL ( I ,4 i ; 

J=I + I-H ; 

TIM=TABLE ( K) ; 

CALL FLOAT! . T I M , . FT ( J ) ) ; 

CALL OIV( ,FT( J) , .CTE, .FT ( J) ) ; 

END; 

RETURN; 

END FTAB: 

PCLIN: PROCEDURE; 

/« THIS PROCEDURE COMPUTES THE CONSTANTS 
AND THE COEFFICIENTS 
NECESSARY FOR THE EXTRAPOLATION BY 
orthogonal POLINOMIALS. THE CONSTANTS 
WILL BE STORED IN THE ARRAY CONS AND 
THE COEFFICIENTS IN ARRAYS DTTP AND ORTP. 
THE SYMBOLS GIVEN IN THE COMMENTS 
REFER TO THE FORTRAN S I PUL AT I ON , I . E . 
S0,B0,Sl,Bi,Cl,S2,B2,C2,S3... 

DECLARE ( I, J,K,L) BYTE; 

DO 1=1 TO 27; CONS(I)=0; END; 

DO 1=1 TO 12; OTTP( I ) =0; 

DRTP(I)=0; END; 

DO 1=1 TO 18; AUX(I)=0; END; 

/* SO =4.0 */ 

CONS=eOH; CONS(1)=OH; CCNS(2)=43H; 

/« BO: */ 

DO 1=0 TO 3; 

J=d-I+I ; 

CALL ADO( .CQNS(3) , .FT(J) , .CONS (35 ) ; 

END; 

CALL DIV( .C0NS(3) , .CONS , . CONS ( 3 ) ) ; 

SI : */ 

DO 1=0 TO 3; 
j=i +l + 1 ; 

CALL SUB ( .FT( J ) , .CONS( 3) , . AUX) ; 

DO K=0 TO 2; 

R0( J+K) =AUX(K) ; 

END; 

■ CALL MULT ( .AUX,. AUX, .AUX) ; 

DO K=0 TO 2; 

SRO( J+K)=AUX(K) ; 

END ; 

CALL ADD( .C0NS(6) , . AUX , . CONS ( 6 ) ) ; 

END; 

/* Bl,Cl: 

DO 1=0 TO 3; 

J=I + H-I ; 

CALL MULT( . FT ( J ) , . SRO ( J ) , . AUX ) ; 

CALL AOD( .CONS( 9) , .AUX, .CCNS(9) ) ; 

END; 

CALL DIV( .CONS( 9) , .C0NS(6 ) , .CONS (9) ) ; 

CALL DIV( .CONS( 6) , .CONS, .CONS ( 12) ) ; 
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/* SZ J * / 

DO 1=0 TO 3; 

J=I<-I <-1 ; 

CALL SUB( .FT( J ) , .C0NS(9 ) , . AUX ) ; 

CALL MULT (. AUX , .R0( J ), .AUX) ; 

CALL SUB( .AUX, .CONS( 12) , . AUX) ; 

DO K=0 TO Z; 

ROl ( JfK)=AUX(K) ; 

END; 

CALL MULT( . AUX , . AUX, .AUX ) ; 

DO K=0 TO 2; 

SROl ( J^-K)=AUX(K) ; 

END; 

CALL ADO( .CONSdS) , . AUX , . CCNS ( 1 5 ) ) ; 

END; 

B2,C2: =«=/ 

DO 1=0 TO 3; 

J=I + H-I ; 

CALL MULT( .FT ( J) , . SROl ( J ) , .AUX) ; 

CALL ADD( ,CONS( 18) , . AUX ,,CCNS(16 ) ) ; 

END; 

CALL DIV( .COMS( 18) , .CONS( 15) , .CONS ( 1 £) ) 
CALL DIV( .COMS( 15) , .C0NS(6) ,.C0NS(2U) 
/’!« S3: */ 

DO 1=0 TO 3; 

J=I + H-I ; 

CALL SU5( ,FT( J ) , ,CONS( 18 ) , .AUX) ; 

CALL MULT( .AUX,.ROU J) . .AUX (3) ); 

CALL MULT( .CONS (21 ) , . RO ( J ) , . AUX ) ; 

CALL SU6( .AUX( 3) , .AUX, . AUX) ; 

DO K=C TO 2; 

ROOK J^-K)=AUX(K) ; 

END; 

CALL MULT ( .AUX AUX, .AUX ) ; 

CALL ADD( .CONS ( 24) , .AUX , . CCNS ( 24) ) ; 

END; 

/* C( 1 ) ,D( 1 ) : */ 

DO 1=0 TO 3; 

J=10+SHL( 1,4); 

K=J+3; 

CALL ADD( .DTTP, .TABLE( J ) , .DTTP ) ; 

CALL ADD( .DRTP ,.TABLE(K) , .DRTP); 

END ; 

CALL DIV( .DTTP, .CONS, .DTTP); 

CALL DIV( .DRTP , .CONS , .DRTP ) ; 

C(2),D(2): -'/ 

DO 1=0 TO 3; 

J=10+SHL (1,4); 



L=H-KI ; 

CALL MULT{ .TABLE( J) 
CALL AOD( .DTTP(3 ) , . 
CALL MULT{ .TARLE(K) 
CALL ADD( .DRTP(3),. 
END; 

CALL DIV( .DTTP( 3) , . 
CALL DIV( .DRTP(3), . 
/« C(3),D(3): 

DO 1=0 TO 3; 
j=104-shl( 1,4);; 



, .RO(L), .AUX) ; 

AUX, .DTTP( 3) ) ; 
,.RO(L),.AUX) ; 

AUX, .DRTP( 3) ) ; 

C0NS(6 ) , .DTTP( 3) ) ; 
C0NS(6) ,.DRTP(3) ) ; 



K=J4-3; 

L= i +K I ; 

CALL MULT( . TABLE ( J ),. RO 1 ( L ) , .AUX ) ; 
CALL ADD( .DTTP (6),. AUX, .DTTP(6) ) ; 
CALL MULT( .TABLE (K) , .ROl ( L) , .AUX ) ; 
CALL AOD( .DRTP( 6) , . AUX , . 0 RT P( 6 ) ) ; 



END; , , 

CALL DIV( .CTTP(6) 
CALL DIV( .DRTP(6) 
/<' C(4) ,D( 4) : «/ 
DO 1=0 TO 3; 
J=104-SHL( 1,4); 



CONS( 15) , .DTTP(6) ) 
CONS( 15) ,.DRTP(6) ) 
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K=j<-3; 

L=H-f + I; 

CALL MULT ( ,TABLE( J) , .ROOl (L > » .AUX ) ; 

CALL ADD( .DTTPi9) t.AUX, .DTTP(9) ) ; 

CALL MULT ( .TABLE(K) » .ROOUL) t .AUX) ; 

CALL ADD( .DRTP(9) , .AUX, .DRTP(9) ) ; 

END; 

CALL DIV( .DTTP{ 9) , .CONS( 24) , .DTTP (9) ) ; 

CALL OIV( .DRTP(9),.C0NS(24),.0RTP(9) ); 
RETURN; 

END POL IN; 

EXTRAP: PROCEDURE ( T M , AVEC ) ; 

/« EXTRAPOLATES VALUES FOR DOWN RANGE TRAVEL 
AND DISTANCE TO TARGET, GIVEN THE 
VARIABLE TIME */ 

DECLARE (TIM, AVEC) ADDRESS, ET(3) BYTE; 
DECLARE (TM,I) BYTE, VEC BASED AVEC BYTE; 
DECLARE CTE(3) BYTE IN I T I AL ( 0 AOH , OH, 44H) ; 

DO 1=0 TO 21; 

AUX( I )=0; 

END; 

TIM=TM; 

CALL FLOAT! ,TI M, .FT) ; 

CALL OIV( .FT, .CTE, .FT) ; 

CALL SUB( .FT, ,C0NS(3 ) , .AUX) ; 

CALL MULT ( .AUX,.V£C( 3) , ,AUX(3) ) ; 

CALL SUB( .FT, .CGNS( 9) , .AUX (6) ) ; 

CALL MULT( . AUX(6 ) , . AUX, . AUX(6) ) ; 

CALL SUB( .AUX(6 ) , .CONS( 1 2 ) , . AUX ( 6 ) ) ; 

CALL SUS( .FT, .CCNS( 18), .AUX (9) ) ; 

CALL MULT( . AUX ( 9 ) , . AUX ( 6 ) ,.AUX(9) ); 

CALL MULT( .CONS( 21 ) , .AUX , . AUX( 18 ) ) ; 

CALL SUS( .AUX(9),.AUX(18) ,.AUX(9) ); 

CALL ADOi .VEC, .AUX'3) , .AUX (12) ) ; 

CALL MULT(.VEC(6),.AUX(6! ,.AUX(15) ) ; 

CALL ADD( .AUX (12 ) , . AUX( 1 5 ) , .AUX( 12)); 

CAlL MULT( .VEC(9) ,.AUX(9) , . AUX ( 1 5 ) ) ; 

CALL AOD( . AUX (12) , .AUX( 15 ) , .AUX( 12)) ; 

DO 1=0 TO 2; 

EXVAL( I )=AUX( 12+1 ) ; 

END; 

RETURN; 

END EXTRAP; 

CCPP: PROCEOUPE(DT) BYTE; 

AUXILIARY PROCEDURE FOR THE SEARCH: 
PERFORMS A STEPWISE COMPARISON BETWEEN 
THE CURVES CF DOWN RANGE TRAVEL AND 
DISTANCE TO TARGET */ 

/« IF THE PROCEDURE RETURNS 0, THERE IS NO 
SOLUTION. IF IT RETURNS 1, THE 
INTERSECTION HAS BEEN PASSED DURING THE 
SEARCH */ 

DECLARE (I,J,DT,CP) BYTE; 

DO 1=1 TO 10; 

PTM=kTM+OT; 

CALL EXTRAP( RTM,.DTTP) ; 

DO J=0 TO 2; 

EXDTT( J)=EXVAL( J) ; 

END; 

CALL EXTRAP (RTM,.DRTP) ; 

DO J=0 TO 2; 

EXDRTU ) = EXVAL( J) ; 

END; 

IF (DT AND 80H) = 0 THEN DO; 

CP=COMPARE(.EXDRT,.EXDTT) ; 

IF ((CP = 2) OR (CP=D) THEN RETURN 1; END; 
ELSE DO; 

CP=COMPARE ( .EXDTT, .EXDRT) ; 

IF ((CP = 2) OR (CP=D) then RETURN 1; END; 
END; 

RETURN O; 

END COMP; 
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PCUND: procedure BYTE; 

TO CHOOSE THE CLOSEST TIME CORRESPONDING 
TO THE INTERSECTION OF THE CURVES «/ 

DECLARE (DIFO,DIET) (3) BYTE, J BYTE; 

CALL £XTRAP( RTM, .DTTP) ; 

DO J=0 TO ?; 

EXOTT( J)=EXVAL( JJ ; 

END; 

CALL EXTRAP (RTM, .DRTP ) ; 

DO J=0 TO 2; 

EXDRT( J) = EXVAL(J) ; 

END; 

CALL SUB( .EXDRT,.EXDTT, .DIFO) ; 

RTM=RTM-1 ; 

CALL EXTRAP (RTM, .DTTP); 

DO J=0 TO 2; 

EXDTT( J)=EXVAL( J) ; 

END; 

CALL 6XTRAP( RTM, .ORT P) ; 

DO J=0 TO 2; 

EXDRT( J) =EXVAL( J) ; 

END; 

CALL SU8( .EXOTT, .EXDRT, .DIET ) ; 

IF COMPARE! .DIFO, .DIFT)=2 THEN RETURN RTM; 

ELSE RETURN RTM+1 ; 

END ROUND; 

SE/SPCH; PROCEDURE BYTE; 

/* THIS PROCEDURE GOVERNS THE SEARCH FOR 
THE INTERSECTION. IT WILL RETURN THE 
TIME OF INTERSECTION ,IN DECIMALS OF 
SECOND. THE MEAN ERROR, BECAUSE OF THE 
PROCEDURE RCUND. WILL BE 0.025 SECONDS */ 
DECLARE ( RESUL,PDRTM) BYTE; 

IF COMP(20)=0 THEN RETURN 0; f'^ NO SOLUTION */ 
RESUL=CGMP(-5) ; 

RESUL=COMP( 1 ) ; 

RDRTM=ROUND; 

RETURN RDRTM; 

END SEARCH; 



sencbuff: procedure; 

DECLARE IX BYTE; 

I Z = SHL( INB,3M-INB; /« MULT BY V */ 
INB=INB+1 ; 

TI=TI+1 ; 

DO IX=0 TO 8; 

BUFF( U^■IX)=TABLE(TI + IX); 

END; 

RETURN; 

END SENDBUFF; 



REALT 



PROCEDURE; 

/* DISPLAYS THE REAL TIME */ 
DECLARE (RTIME,RST) BYTE; 
RT!HE=CLOCK; 

CALL CRLF; ^ _ 

CALL PRINT(.'THE TIME NOW IS' 
RST=INTEG(RTIME,2) ; 

CALL DECIM(RST); 

CALL PRINT!.' SECONDSS'); 
CALL CRLF; 

return; 

END REALT; 



$• ) ; 



RELPT 



/❖^COMPUTES AND DISPLAYS THE RELEASE POINT */ 
DECLARE (RST,J) BYTE; 

RTM=80; 

RPT=SEARCH; 
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IF RPT = 0 THEN CALL PRINK. *N0 SOLUTICNSM 
ELSE DO; 

CALL CRLF; 

CALL REALT; 

CALL CRLF; 

CALL PRINK RELEASE POINT:$»); 

CALL CRLF; 

CALL PRINK .*TIME=$' ) ; 

RST=INTEG( RPT, 2 ) ; 

CALL DECIM(RST) ; 

CALL PRINK.’ SECONDS$»); 

CALL CRLF; 

CALL EXTRAPIRPTt .OTTPK 
DO J=0 TO 2; 

DTT( J) =EXVAL( J) ; 

END; 

CALL EXTRAP( RPT, .DRTP) ; 

DO J=0 TO 2; 

DRT( J)=EXVAL( J) ; 

END; 

CALL PRINT (.' DI STANCE TO TARGET=$«); 

CALL DSPL V( . DTT,4) ; 

CALL PRINT ( . ' YARDS$* ) ; 

CALL CRLF ; 

CALL PRINT!. 'DOWN RANGE TRAVEL = $M; 

CALL DSPLV( .DRT,4) ; 

CALL PRINT! .' YARDS$' ) ; 

CALL CRLF; 

END; 

RETURN; 

END RELPT; 



INTSERV: PROCEDURE INTERRUPT 3; 

DECLARE ( I, J) BYTE; 

DISABLE; 

CUTPUT(3)=INTER; 

IDLE=1 ; 

J = SHL( NUMB, AH-13; 

NUMB = NUMB+ 1 ; 

DO 1=0 TO 2; 

0UTPUT!3» = Kl; 

CALL TIME! 3); 

TO GIVE TIME TO THE OTHER COMPUTER */ 
TABLE! J+I I =INPUT!7 ) ; 

END; 

IF INB > OUTB THEN DO; 

ZI = SHL(0UTB,3H-0UTB; 

0UTB=0UTB + 1 ; 

IDLE=0; 

CUTPUK3 ) =FR CM $ BUFFER; 

DO WHILE INPUT!?) <> FR0M5EUFFER; END; 

WAITS FOR BAL. TO BE READY */ 

DC 1=0 TO 8; 

DO Vi'HILE INPUT!?) <> I + l; END; 
0UTPUT!3)=BUFF(ZH-I); 

END; 

end; 

ELSE 0UTPUT!3) =EMPTY; 

ENABLE; 

RETURN; 

END INTSERV; 



00 FOREVER; 
ENABLE; 
I0LE=1; 

I NCX=13; 
INB=0; 

oute=o; 

NUPE=o; 
OUTPUT! 3 ) =0; 
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DQ WHILE INPUT(7) <> IN'IT; END; 

/* WAITS FOR PROMPT SIGNAL FROM BAL. 

/* GO ON UNTIL CONTROL-C IS TYPED, 

CALL CRLF; 

CALL PRINT {.'BEGINING OF A RUN: $*); 

CALL CRLF; 

CALL PRINT!. 'THE PROGRAM HAS A TABLE OF AIRCRAFTS'); 
CALL PRINT!.' POSITIONS FOR 4 DIFFERENT RUNSrS'); 

CALL CFLF; 

CALL PRINT! .' USING THE BOMB MK82 UNRETARD EDS ') ; 

CALL PRINT! .« ,IDNO=10.S* ) ; 

CALL CRLF; 

CALL PRINT !.' ENTER A RUN NUMBER FROM 1 TO 4.$*); 

CALL CRLF; 

CALL CRLF; 

CALL PRINT! .' RUN = $* ) ; 

CALL READ; 

IF RDBUFFl 2)=03H THEN GO TO OH; 

RUN=CCNV!RDBUFF(2) ) ; 

CALL CRLF; 

CALL CRLF; 

CALL PRINT! .' INPUT WEAPON ID NUMBER AFTER $i); 

CALL CRLF; 

CALL PRINT!.' IDNO HAS TO BE FROM 1 TO 28. $•); 

CALL CRLF; 

CALL PRINT!.' IF YOU WANT TO QUIT ,TYPE CONTRCL-C. $’ ) ; 
CALL CRLF; 

CALL CRLF; 

CALL PRINT! .' IDNO= $' ) ; 

CALL READ; 

IF RDBUFF! 2)=03H THEN GO TO OH; 

I F RDBUFF! 1 ) = 1 THEN 
CO; 

REBUFF! 3) =RDBUFF! 2 ) ; 

RDBUFF! 2) =0; 

END; 

IDNC = 10*C0NV!RD3UFF! 2) ) +CONV ! RDBUF F ! 3 ) ) ; 

CALL CRLF; 

CALL CRLF; 

CALL PRINT! .' EXECUTION WILL BEGIN WHEN CLOCK=0$'); 

CALL CRLF; 

0UTPUT!3 )=INIT; TELLS BAL. THAT THE IDNG WILL 

BE SENT 

DO WHILE INPUT!?) <> SENDSIONO; END; 

/* WAITS FCR THE PROMPT SIGNAL */ 

OUTPUT ! 3 ) =IDNO; /* SEND WEAPON ID NUMBER */ 

RID=!RUN- 1 )*520; 

DO WHILE CLOCK <> 0; /* WAIT UNTIL CLOCK CCUNT= 0 »/ 

END; 

DO 1=0 TO 3; 

TI = 16=i^I ; 

M=13 + 26*I ; 

DO J=0 TO 12; 

TABLE !TI4-J)=NAVTAB!NI+J4-R ID) ; 

/« SIMULATES THE RECEIVING OF DATA FROM NAV. */ 
END; 

DISABLE; 

IF IDLE THEN DO; 

IDLE=0; 

DO WHILE INPUT!?) <> DAT; END; 

OUTPUT ! 3 ) =DAT; 

T I=TI + i ; 

DO IJ=0 TO 8; 

DO WHILE INPUT!?) <> IJ^-l; END; 

OUTPUT !3)=T ABLE !T I + IJ); 

END; 

END; /* IF «/ 

ELSE CALL SENOBUFF; 

ENABLE; 

/* TO SYNCHRONIZE EXECUTION WITH THE TABLE OF DATA */ 
J=SHL! I,l)+l; , . , 

DO WHILE CLOCK < ! SHL ! J » 3 ) +SHL ! J t 1 ) ); END; 
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DISABLE; 

I NCX= INDEX (CLOCK ) *13+RID; 

CALL DISPLAY! INDX ) ; 

ENABLE; 

END; /« DO 1=0 TO 3 «/ 

DC VtHILE NOT IDLE; 

/* THIS FLAG IS SET BY INTSERV */ 

END; WHILE 

CALL CRLF; 

CALL PFINT! START TO COMPUTE RELEASE POINTS'); 

CALL CRLF; 

CALL REALT; 

CALL CRLF; 

CALL CRLF; 

CALL FTA6; 

CALL POLIN; 

/* EXTRAPOLATE DOWNRANGE AND GIST. TO TARGET 
CURVES AND FIND THE INTERSECTION */ 

CALL RELPT; 

/* COMPUTES AND DISPLAYS THE RELEASE POINT / 

CALL CRLF; 

CALL PRINT!. 'FROM THE TABLE OF DATA:S'); 

DISPLAYS DATA FROM TABLE AT TIME OF RELEASE «/ 
TO CHECK THE RESULT OF EXTRAPOLATION */ 

CALL CRLF; 

I NDX=IN0EX(RPT)'':'13+RI0 ; 

CALL DISPLAY! INDX) ; 

CALL CRLF; 

DO WHILE INPUT! 7) ODAT; END; 

OUTPUT! 3) =DAT; 

ICLE=0; 

DC IJ=0 TO 8; 

CO WHILE INPUT! 7) <> IJ<-1; END; 

OUTPUT! 3) =NAVTAb! INDX<-H-I J) ; 

END; 

CALL PRINT!. 'FOR THIS POS I T I ON : $ • ) ; 

CALL CRLF; 

DO WHILE NOT IDLE; END; 

CALL PRINT!. 'DOWN RANGE TRAVEL=$*); 

CALL DSPLV! .TABLE ! 77) ,4) ; 

CALL PRINT! . ' YARDSS' ) ; 

CALL CRLF; 

CALL CRLF; 

END; FOFEVER */ 

EOF 
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* BALLISTICS' COMPUTER PROGRAM 



^ =5: =r :%« 5S * « « =is ^ # 



^5|;:!tj|c^:!(^:jsj^:{;:{e j|t!{j * :.(; j.'; :|<:jcy^^ :{: y|; * * >!■ :^£ »: 



DECLARE FOREVER LITERALLY 'WHILE 1'; 
DECLARE IMIT LITERALLY 'OCOH'; 

DECLARE DAT LITERALLY 'OCOH'; 

DECLARE SEiMDSIDNO LITERALLY 'OABH'; 
DECLARE FROMSBUFFER LITERALLY 'OBBH'; 
DECLARE EMPTY LITERALLY 'OCCH'; 
DECLARE INTER LITERALLY 'OBOH'; 
DECLARE (lONO, COUNT) BYTE; 

DECLARE INDAT(9) BYTE; 

DECLARE X(3) BYTE; 






SERV$ONE; PROCEDURE; 

TO RECEIVE WEAPON ID NUMBER «/ 
OUTPUT!? I =SEND$ lONQ; 

CALL TIME (3) ; 

IONC= INPUT ( 7) ; 

RETURN; 

END SERVSONE; 



SERV$TWO: PROCEDURE; 

/* WILL RECEIVE SPEED, ALT ITUDE AND DIVE ANG. */ 
DECLARE (I,IJ) BYTE; 

LOCP: DO IJ=0 TO 8; 

OUTPUT! 7 ) =IJ+1 ; 

CALL TIME(3); 

INDAT! IJ) = INPUT(7) ; 

END ; 

NOW THE DOWN RANGE TRAVEL KILL BE COMPUTED 

DO; 

DECLARE ZE BYTE, ZZ ADDRESS; 

DECLARE YE BYTE,XF BYTE; 

FLOATING POINT ADD ROUTINE^-/ 

ADD: PROCEDURE (XA,YA,PA); 

DECLARE (XA,YA,ZA) ADDRESS, 

PA ADDRESS, P BASED PA BYTE, 

(I, R2,Y3, DIGIT, SINE) BYTE, 

X BASED XA BYTE, 

Y BASED YA BYTE, 

(XX, YQ) ADDRESS; 

/* PROCEDURE TO LEFT JUSTIFY MANTISSA IN BINARY */ 

ADJUST: PROCEDURE; 

DC 1=0 TO 15; 

IF (ZZ AMD 8000H)=8000H THEN RETURN; 

ZZ=SHL(ZZ, 1) ; 

ZE=ZE-1 ; 

END; RETURN; 

END ADJUST; 

XX=SHL(DCUBLE(X) ,8) OR X(l); 

YQ=SHL( DCU3LE (Y ) , 8) OR Y(U; 

R2= X(2) AND 7FH; 

Y2= Y(2) AND 7FH; 

DIGIT=R2~Y2; 

SINE =(X(2) AND 80H) XOR (Y(2) AND 80H) ; 

IF (DIGIT AND 80H)<>0 THEN 0 I GI T=-OI G I T ; 

IF DIGIT >= 16 THEN DO; 

/» VARIABLES NOT WITHIN SIGNIFICANCE RANGE */ 

IF P2 > Y2 THEN DO; 

ZZ=XX; ZE=X(2); GO TO RET; 

END; 

ZZ=YQ; ZE=Y(2); GO TO RET; 

END; 

IF Y2 = R2 THEN DO; 

/« EXPONENTS EQUAL IN ABSOLUTE VALUE =<-'/ 



143 






IF YO>X.X THEN 00; 

/« Y > X 

ZE= Y{ 2) ; 

IF SINE < 80H THEN GO TO EXITl 
GO TO EXIT2; 

END; 

IF YQ<XX THEN DO; 

X > Y */ 

Z£ =X(2); 

IF SINE < 80H THEN GO TO EXITl 
GO TO EXIT3; 

END; 

/« X = Y */ 

IF SINE < 80H THEN DO; 

ZE=X( 2) ; GO TO EXITl ; END; 

zz=o; 

Z E = 0 ; 

GO TO RET; 

END; 

IF Y2 > R2 THEN DO; 

/« Y > X 

ZE = Y( 2 ) ; 

XX=SHR(XX,DIGI T) ; 

IF SINE < eOH THEN GO TO FXITl 
GO TO EXIT2 ; 

END; 

X > Y =!=/ 

Z E = X ( 2 ) ; 

YQ=SHR(YO, DIGIT] ; 

IF SINE < 80H THEN GO TO EXITl 
GO TO EXIT3; 

EXITl : 

ZZ=XXfYQ; 

IF CARRY THEN 00; 

ZZ=SCR(ZZ, 1 ) ; 

ZE=ZE +1; 

END; 

GO TO RET; 

EXIT2: 

ZZ=YQ-XX; 

CALL ADJUST; 

. GO TO RET; 

EXIT3: 

ZZ=XX-YQ; 

CALL ADJUST; 

RET: P=HIGH( ZZ) ; P( 1 )= LOW ( Z Z ) ; P( 2 ) = ZE ; 

RETURN; 

END add; 



SUB: PROCEDURE (AD, BO, CD); 

DECLARE (AD,BC,CO) ADDRESS, 

A BASED AD BYTE, 

B BASED BD BYTE, 

C EASED CO BYTE; 

DECLARE BC (3) BYTE; 

BC(0)= B(0) ; 

BC( 1)= B( 1) ; 

BC(2)= B(2) XOR 30H; 

CALL ADO ( AD, .BC,CD) ; 

END SUB; 

/* FLOATING POINT MULTIPLY ROUTINE */ 
MULT: PFOCEDURE(XA,YA, PA) ; 

DECLARE SAVE BYTE; 

DECLARE I BYTE, 

XA ADDRESS, X BASED XA BYTE, 

YA ADDRESS, Y BASED YA BYTE, 

PA ADDRESS, P BASED PA BYTE, 

TQ ADDRESS, TT ADDRESS; 

SAVE=X( I ) ; 

IF (X=0) OR (Y=0) THEN DO; 

ZZ=0; ZE=0; GO TO RET; END; 
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X(l)= SHR(X( 1) ,n ; 

TT = SHL(OGUBLE(X) ,7) OR X ( 1 ) *, 

TC'=SHL(DOU8LE(Y) ,8) OR Y(l); 

ZZ = 0; 

DO 1=0 TC 15 BY 1; 

ZZ= SCR(ZZ,1); 

T£= SCR(T3,1); 

IF (CARRY) THEN DO; 

ZZ = ZZ+TT; 

END; 

END; 

IF (ZZOOOOH) THEN DO; 

ZZ= SHL(ZZ, 1 ) ; 

ZE=-l; 

END; 

ELSE ZE=0; 

/* ADD EXPONENTS */ 

ZE=((X(2) AND 7FH} <■ ( Y ( 2 ) AND 7FH)-6A +ZE) 

OR ( (X( 2) AND 8 OH) 

XCR ( Y (2) AND 60H) ); 

RET: P=HIGH(ZZ) ; P{ 1 )= LOW ( Z Z ) ; P( 2 ) =Z E; 

X( 1 ) = save; 
return; 

END MULT; 

/# ROUTINE TO COMPARE TWO FLOATING POINT VARIABLES t 
IF X<Y C0MDARE=0 
X=Y COMPARE=l 
X>Y C0HPARE=2 */ 

COMPARE: PROCEDURE (XA,YA) BYTE; 

DECLARE X BASED XA BYTE, 

Y BASED YA BYTE, 

I XA,YA,CHECK1 .CHECK2 ) ADDRESS, 

(XP,YP) BYTE; 



/* EQUAL EXPONENTS / 

XE=X (2 ) AND 80H ; 

YE=Y(2) AND 80H; 

IF ( XE=YE J THEN 00; 

XP=X(2) AND 7FH; 

YP=Y(2) AND 7FH; 

CHECK1=SHL(D0UBLE(X) ,8) OR X(U; 
CHECK2=SHL(D0UBLE(Y) ,8) OR Y(l); 

IF ( XE=30H ) THEN DO; 

IF ( XP<YP ) THEN RETURN 2; 

IF (XP > YP ) THEN RETURN 0; 

IF CHECK2 < CHECKl THEN RETURN 0; 
IF CHECK? > CHECKl THEN RETURN 2; 
RETURN 1; 

END; 

IF ( XP < YP ) THEN RETURN 0; 

IF ( XP > YP ) THEN RETURN 2; 

IF CHECK2 < CHECKl THEN RETURN 2; 

IF CHECK? > CHECKl THEN RETURN 0; 

RETURN l; 

END; 

IF ( XE = 0 ) THEN RETURN 2; 

RETURN 0; 

END COMPARE; 

OIV: PROCEDURE (XA,YA,PA); 

DECLARE (XA, YA, ZA,8,XX,YQ) ADDRESS, 

PA ADDRESS, P BASED PA BYTE, 

I BYTE, 

X BASED XA BYTE, 

Y BASED YA BYTE, 

C (3) BYTE; 



XX=SHL( 00U3LE(X) , 3) OR X( 1 ) ; 
YC = SHL( COUBL£(Y ) , 8 ) OR Yd); 
IF XX =0H THEN DO; 
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AND 7FH) ‘ l; 



ZZ=0H; ZE=0H; GO TO RET; 

END; 

XX = SHR( XX, 1) ; 

YQ=SHR( YQ, 1 ) ; 

ENTO; ZZ=0; 

C<2)= X(2); 

1 = 1 ; 

6 = XX“Y Q • 

IF NOT CARRY THEN DO; 

IF B=0 THEN DO; 

ZZ=8000H; 

ZE=((( X(2) AND aOH) XCR (Y(2) AND 80H)) 

OR ((C(2) AND 7FH)-(Y(2) AND 7FH)+65)) 
GO TO RET; 

END ; 

GOTO ENT2; 

END; 

XX=SHL( XX, 1 ) ; 

C(2)= (C(2) 

ENTl: 0=XX-YQ; 

IF CARRY THEN DO; 

XX=SHL(XX, 1 ) ; 

GGTC ENT 3; 

END; 

/* NO CARRY, ADD ONE TO DIVIDEND TO MANTISSA AND 

SHIFT LEFT «/ 

ENT2: XX=SHL(8,1); 

ZZ=ZZ+1 ; 

/« CARRY SHIFT DIVIDEND MANTISSA LEFT */ 

ENT3: ZZ=SHLI ZZ,1 ) ; 

1 = 1 + 1 ; 

IF I< 16 THEN GOTO ENTl; 

/* SET EXPONENT «/ 

ZE=( ( ( X( 2) AND 8 OH) XCR ( 

((C(2) AND 7FH) - ( 

RET: P=HIGH( ZZ) ;P( 1 ) = LOW ( Z Z ) ; P ( 2 ) =Z E ; 

RETURN; 

END OIV; 

SORT: PROCEDURE (XA,PA); 

/* ASSUME THAT XA IS A POSITIVE REAL NUMBER 
DECLARE XA ADDRESS, X BASED XA BYTE; 

DECLARE PA ADDRESS, P BASED PA BYTE; 

DECLARE ICrCl ,C2,C3,3,B1,82) BYTE; 

INITIAL APPROXIMATION FOR THE ROOT IS 
MANT » EXP/2 */ 

DECLARE R BYTE; 

B = X; 01= X(l) ; 

B2=X(2)-6A; if (32 AND 80H) =0 THEN B 2 =S HR ( B2 , 1 ) +64 

ELSE DO; B2=-B2; B2=SHR ( B2 , 1 ) ; 
62=64-32; 

END; 

DO R= 1 TO 4; 

CALL OIVIXA, .B,.C) ; 

CALL ADD( .C, .B, .B) ; 

B( 2)=B(2)-l ; 

END; 

p=b; p(1)=B(1); p(2)=b(2); 

RETURN; 

END SORT; 

DECLARE (T,T1,T2,Z,Z1,Z2 )BYTE; 



Y(2) AND aOH) ) OR 
Y(2) AND 7FH)+65)); 
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( I D, T EHP, T EMP 1, T EMP2, ENTRY, ENTRYl, ENTRY 2) BYTE 
PROCEDURE ( I ,XA) ; 

CDTABLE 
ATMOSPHERE 
COSINE 
ATANl 
1=4 ATAN2 */ 

DECLARE ETWO DATA 

( OH, OH, OH, 0C9H, OEH, 3BH, 0C9H, OEH, 3CH, 96H, 
OCAH, 3DH, 0C9H, OEH, 30H, OFBH, 51H, 3DH, 96H, OCAH, 
3EH, OAFH, OECH, 3EH, 0C9H, OEH, 3EH, 0E2H, 2FH, 3EH, 



DECLARE 

FUNCTION: 
/=> 1=0 
1 = 1 
1=2 
1 = 3 
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, 0D3Ht 
ODDH, 
oH , 
OFDH, 
0F4H, 
0F9H, 
OFCH, 



H, OCOH» OF5H, ODCH, OCOH, 0F7H, 89H, OCOHt 0F9H, 
Ht OCOHf OFAH, 70H, OCOH, OFBH, OA&H, OCOH, OFCH, 
DH, OCOH, OFOH, 0A9H, OCOH, OFEH, 6EH, OCOH, OFFH, 
ul-H, OCOH, OFFH, 82H, OCOH, OFFH, ODIH, CCCH, OFFH, 
CF9H, OCOH, OOH, OCH , OOH); 

DECLARE (E,V,D,V1,D1 ) (3) ADDRESS INITIAK 
3000H,3300H, 2D77H, 

3100H, 3337H,2E3AH, 

3200H, 346EH,2EFDH, 

GOOCH, 3525H,OCOOH, 

0000H,a3DCH, OOOOH), 

I BYTE, 

LCGK (3) BYTE INITIAL (252,181,192), 

MAX (3) BYTE INITIAL (252,181,192), 

ENTA ADDRESS, ENT BASED ENTA BYTE, 
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VALA ADDRESS, VAL BASED VA LA BYTE, 

DIFFA ADDRESS, DIFF BASED DIFFA BYTE, 
VALIA ADDRESS, VALl BASED VALIA BYTE, 
(LOCKI ,MAXI ) BYTE , 

DIFFIA ADDRESS, OIFFl BASED DIFFIA BYTE; 
/« INPUT CGNJSISTS OF A BASED VARIABLE, 
BE IN GLOBAL VARIABLES T, Tl, T2. AND 
FOR RHO AND INV5 RESPECTIVELY 
DECLARE XA ADDRESS, X BASED XA BYTE; 

ENTA=.ETWO; VALA=.VTWO; DIFFA=.DTWO; 
VAL1A=V1(I); DIFFLA=D1(IJ; 
LCCKI=LOOK(I ) ; 

NAXI=NAX r I) ; 

ENTRY=X; ENTRY1=^X(1I; EMTRY2 = X(2); 
IFILOOK I = ,-1AXI ) THEN LOOKI=0; 

ID=CCMPARE ( . ENTRY , ENT A+-LOOK I ) ; 

I F( ID=1 ) THEN GOTO EXITl ; 

READ UPWARDS IN THE TABLE*/ 



OUTPUT WILL 
Z, Zl, Z2, 

*/ 



/* 



I F( I0>1 ) THEN DO; 



LOOPl; IF (LOCKI=KAXl) THEN GO TO EXITl; 
L00KI=L0CKI+3; 

IC=COMPARE( .ENTRY , ENTA + LOOKI ) ; 

IF{ ID=1 ) THEN GO TO EXITl ; 
IF( ID>1 ) THEN GO TO LOOPl ; 
LOOKI=LOOKI-3; GO TO EXIT2; 
END; 

/« READ DOWNWARDS IN THE TABLE */ 
LCOP2: IF(L00KI=0) THEN GO TO EXITl; 

LOOKI=LOOKI-3; 

ID=COMFARE( , ENT RY , ENTA +LOOK I) ; 

IF( ID=1 ) THEN GO TO EXITl ; 
IF(ID<1) THEN GOTO L0CP2; 
GOTO EXIT2; 



EXITl: T = VAL(LOOKf ) ; T 1 = VAL( LOOK I <• 1 ) ; T2=V AL ( LOOK H-2 ) 

IF lOl THEN GO TO RET; 

Z = VAL1 (LOOKI ); Z1 = VAL1 (LOOKUl ) ; 

GC TO RET; 



Z2=VAL1 (LOOKI+2) 



T EMP1 = ENT (LOOK ) 



EXIT2: TEMP=ENT ( LOOKI ) ; 

TEMP2=ENT(L00KI f 2) ; 

/* CHANGE THE SIGN OF TEMP */ 
TEMP2=TEMP2 XQR BOH; 

/* ENTRY - ENT(LCOK) */ 

CALL AOD( .TEMP, .ENTRY, .TEMP) ; 



*/ 



/* (ENTRY - ENT (LOOK))* DIFF (LOOK) 
call MULT(.TEMP,DIFFA+L00KI, .T); 

CALL ADD( .T, VALA+LOOKI , . T) ; 

/* VAL (LOOK) +ENTRY-£NT( LOOK) *DIFF(LOOK) 
lOl THEN GO TO RET; 

CALL MUL T( .TEMP,DIFF1A+L00KI 
call ADD( .Z,VAL1A4-L00KI, .Z) ; 

LOCK( I )=LOOKI ; 

RETURN; 

END FUNCTION; 



IF 



RET 



*/ 



.Z ) 



CGSSIN: PROCEDURE ( XA ) ; 

/* THIS ROUTINE COMPUTES BOTH THE SINE 
THE COSINE FOR THE GIVEN ANGLE XA 
RADIANS . THE OUTPUT VALUES ARE 
STORED IN GLOBAL VARIABLES Z,Z1,Z2 
FOR COSINE T,T1,T2 FCR SINE */ 

DECLARE (TH,TH1 , TH2 , THN, T HN 1 , THN2 , TMP , TMP 1 ,TMP2) 
BYTE, 

(MPI2,MPI21 ,MPI22) BYTE 
XA ADDRESS , X 
TH=X; THl=X(l); TH2=X(2); 

DECLARE OUT LABEL; 

DECLARE I BYTE; 

DO 1=1 TO 4; 



AND 

IN 



INITIAL (0C9H,0FH,0C1H] 
BASED XA BYTE; 
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J THN1=TH1 ; THN2 = TH2; 

C^LL ADO ( .THt .MPrZt.TH) ;/=:-THETA - PI2 «/ 
rr-y,,- IS TH5AR AND TH IS THBAPx 

IF(ZE AND 80H) <> C THEN GO TO OUT; 

END; 

RETURN ; 

CUT: 

TH2=ZE AND 7FH; 

CALL FUNCTION ( 2 , .THN) ; 

THN=T ; THN1=T1; THN2=T2; 

/* THK= COS (TH ) 

CALL FUNCTION ( 2 , .TH» ; 

TH= CCS PI/2-TH) «/ 

TH=T; TH1=T1; TH2=T2; 

IF ( ( 1=1 )OR ( 1=3) ) THEN DO; 

Z=THN; Zl=THNl ;Z2=THM2; 

T=TH; Tl=THl ; T2=TH2; 

IF( 1=3 ) THEN DO; 

Z2=Z2 XOR 80H; 

T2=T2 XOR 80H; 

RETURN; 

END; 

RETURN; 

END 

Z=TH; Zl=THl; Z2=TH2 XOR 60H; 

T=THN; T1=THN1; T2=THN2 ; 

IF (1=4) THEN DO; 

T2=T2 XOR 80H; 

Z2=Z2 XOR 80H; 

END; 

RETURN; 

END CCSSIN; 



PI/2 =!=/ 



/« DECLARATION STATEMENTS FOR THE SETDAT PROCEDURE*/ 
DECLARE (GtRADt A1 , AA,YT,VYK,FRACT ) (3) BYTE; 

DECLARE (DS2,CFORiMl ,CFORM2 tOMl » DM2 , DKGl » DKG2 t VMUZ tVErSL tFN, 
TM,D.MAX) (3) BYTE; 

DECLARE (ITYPE, IBCTH, J,SET) BYTE; 

DECLARE (VKTS,ALTtDEG) (60) BYTE: 

DECLARE (U, DEL, TEMPI X , TEMP2X T TEMPO, TEMP4tTEMP5 ,T ERP6, TEKP7, 
V, THETA, VXAtVYA) (3) BYTE; 

/* DECLARATION STATEMENTS FOR THE DECODE PROCEDURE*/ 
DECLARE IREF BYTE; 

DECLARE (DTI,CS) (3) BYTE; 

DECLARE (CC) (81) BYTE; 

DECLARE (CT) (18) BYTE; 

/* OECLAP.ATICN STATEMENTS FOR THE TRAJ PROCEDURE */ 
declare (CF, DM,0KG,VX, VY,TH,Y,YA, 0,0TV) (3) BYTE; 

DECLARE (SWITCH, MSTG, TABLED BYTE; 

DECLARE (TEMP 1 A , TEMP 2 A , TEMP3 A , TE MP4A , TEMP5A. , TE MP6 A , TEMP 7 A) 
(3) BYTE; 

/* DECLARATION STATEMENTS FOR THE RUNGE PROCEDURE */ 
DECLARE (AD,YO,VXO,VYG,RHn, AP1,AP2,AN1,AN2) (3) BYTE; 

DECLARE (TEMP 1B,TEMP28 ,TEMP3B, TEMP4B ,TEPP5B,TEMP66) (3 ) BYTE; 

/* DECLARATION STATEMENTS FOR THE MAIN PROGRAM */ 

DECLARE (KIV, 1 IONO,KIDNO, IANG,KDEG, IV,KIV, lY, KIY ) BYTE; 
DECLARE (NUMID) (40) BYTE; 

/* DECLARATION STATEMENTS FOR THE DERIV PROCEDURE */ 

DECLARE (CM,Hh,CKDG) (3) BYTE; 

DECLARE ( IREG,BASEAODRESS) BYTE; 

SETDAT: PROCEDURE; 

DECLARE CGNSTANTSl (21) BYTE 

INITIAL ( 080H, 062H, 046 H , 08 EH , OF AH , 03 BH, 0 B 3H , 033H, 040H, 
O06H,ODbH,O4OH, 

OOOH,OOOH,OOOK ,OAOH ,0C0H,0C3H,080H, COCH, 040H) ; 
DECLARE CONSTANTS? (6) BYTE 

INITIAL ( 000H,000H, 000H,0A0H,000H,043H) ; 

DECLARE C0NSTANTS3 (2) BYTE 
INITIAL (3,1); 

DECLARE PI2 (3) BYTE 

INITIAL ( 0C4H,00FH,043H) ; 

/* SET THE CONSTANTS TO THEIR SELECTED VALUES */ 
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IF (SET=1) THEN DO J=0 TO 2 BY 1; 

G( J)= CONSTANTS 1 ( J) ; 

RAD(J)= CONSTANTS I ( J + 3 ) ; 

A1(J)= CCNSTANTSi ( J+-6) ; 

AA(J)= CCNSTANTSl ( J+9) ; 

YT( J)= CCNSTAMTSU J<-12) ; 

VYH(J)= CONSTANTS 1 (J + 15) ; 

FRACT(J)= CONSTANTS! (J+18) ; END; ELSE 

(2 rfcT^of ASSIGNED IN THE DECODE PROCEDURE */ 

IF (SET = 2) THE(N UO ; DO J = 0 TO 2 BY 1; 

CFCRK1(J)= CCNSTANTS2 ( J ) ; 

CFCRN2(J)= CONSTANTS2 ( J ) ; 

DMI{J)= CONSTANTS2 ( J) ; 

DN2( J)= CONSTANTS2U) ; 

DKGUJ)= CONSTANTS2( J) ; 

DKG2(J)= CONSTANTS2( JJ ; 

VMUZ(JJ= CONSTANTS2 { J) ; 

VE( J)= CGNSTANTS2< J) ; 

SL ( JJ= CCNSTANTS2 ( J ) ; 

FN( J)= CCNSTANTS2( J) ; 

TH( J)= CONSTANTS2 < J ) ; 

DNAX(J)= CON5TANTS2( J4-3) ; END; 

ITYPE= C0N'STANTS3( 0) ; 

IBCTH= CCNSTANTS3 ( I) ; END; ELSE 
IF (SET=3) THFN DO; 

DECLARE CONVERT (31 BYTE 

INITIAL (0D3H,009H,DA1H) ; 

/* CONVERT KNOTS TO FEET PER SECOND U=VKTS ( I V ) * 1 . 68/8 -T/ 
CALL NULT{ .CONVERT , .VKTSt.U) ; 

APPROXIMATE THE ARCTAN FUNCTION */ 

CALL DIV ( .VE, .U, . DEL) ; 

/* DETERMINE THE VELOCITY V=UH/2«( VE**2I /U 
APPROX TO S0RT(U'-’'*2+-VE--2) «/ 

CALL MULT ( .VE , .VE , .T6MP1X) ; 

CALL DIV( .TEMPIX. .U,.TFMP2X) ; 

CALL MULTI .TEMP2X , . FR ACT , . T£ MP3 ) ; 

CALL ADD! .TEMP3 , .U, .V) ; 

/* CALCULATE THE DIVE ANGLE THETA= DEGI I ANG ) ^RAO 

CALL MULTI . RAD, .DEG, .THETAl ; 

/* IF THF DIVE ANGLE IS NEGATIVE, ADD IT TO 2PI 
IF ITHETAI2) AND 80H} <> 0 THEN DO; 

CALL ADD! .THETA, .PI2,. THETA) ; 

FND; 

CALCULATE THE VELOCITY IN BOTH THE X AND Y DIRECTIONS =«=/ 
/* VXA= lVtVMUZ)^= COS I THETA-OEL ) =^/ 

/* VYA= IVfVMUZ)^?^ S INI THETA-OEL) */ 



CALL SUBI . THETA, .DEL, .TEMP4) ; 

CALL COSSINI .TEMP4) ; 

TEMP5=Z; TEMP5ll)=Zl; TEMP5(2)=Z2; 

TEMP7=T; TEMP7I1)= T1 ; TEMP7I2)=T2; 

CALL ADD! .V, . VMUZ , .TEMP5) ; 

CALL MULTI .TEMP6, .TEMP5 , ,VXA ) *, 

CALL MULTI . TEMPS, .TEMP?,. VYA); END; RETURN; 

END SETCAT; 

DECCCE: PROCEDURE; 

DECLARE I START, ONE, TWO, THREE, FOUR) LABEL; 

/« DECLARE THE STARTING POSITION OF THE VARIOUS 

WEAPON COEFFICIENTS «/ 

DECLARE IDVEC 128) ADDRESS 

I NIT I ALIO, 13, 26, 3 9, 5 2, 65, 7 8, 91, 104, 117, 130,143, 156,16 9, 
182, 195, 203 ,221 , 

254, 287,320, 353, 386,419,452,485,518 ,551) ; 

/* DECLARE THE MUZZLE VELOCITY AND THRUST VECTOR */ 

DECLARE VHFN (6) BYTE 

INITI ALI OCEH,040H,04CH,ODAH,040H,04BH) ; 

/« DECLARE THE CC MATRIX OF DRAG COEFFICIENTS */ 

DECLARE CCVALUE 181) BYTE 

INITI ALI 0CEH,02AH, 03 7H , 00 OH , OOOH , OOOH ,000H , 0 OOH , OOOH , OBFH, 
0A0H,03CH, 

OEOH, 030H,03DH, 088H,04AH,03DH,0£EH,058H,0BDH,00EH, 
0DEH,03EH, 

OC8H,OO7H,03DH,OE2H,O3EH,O42H,OD6H,O42H,OC2H,O87H, 
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0D9H,042Ht 

0B4H, 02FH,044H,0DBH,054H,0C5H»0ADH,0D3H,045H, 08EH, 
055h , 0C5H» 

OBiH, 006H, 046H ,OE7H,OFCH»OC4H,OD5Ht 03AH ,03DH, OEBH, 
OcOH j OB£ Hj 

0A6H, OAAH,0 3EH,OC6H,OB1H,OBEH,OCOH, 08EH ,0 3FH , 0 A3Ht 
090H, 03EH, 

096H, O2BH,O3DH,OA6H,O35H,OBBH,OAOH,05AH,033HJ ; 

/* DECLARE THE MACH CUT MATRIX CT 
DECLARE CTVALUE (18) BYTE 

I NIT I AL (ODBH, 081H, 040H,0EAH, OICH ,040H ,09FH, 0 3BH ,040H, OE2H, 
08FH,040H, 

084H, 018H»041H,OA6H,066H,041H) ; 

/- DECLARE THE WPNCOOE MATRIX CONTAINING THE VARIABLE FOR 

, EACH WEAPON */ 

DECLARE WPNCOCE (585) BYTE 
/'* WEAPON CONSTANTS FOR THE MK 43 UNRETARDED */ 

INITI AL(4tOOOHf OOOHj OOOH , OA 7H , 02 7H , 03 3H, OAOH , OOOH , 04 3H , 
OCOH, OCOH, Ot2H, 

/* WEAPON CONSTANTS FOR THE MK 57 UNRETARDED ’i'/ 

4, OOOH,OOOH, OOOH,OCEH,066H,039H,OAOH ,OOOH,043H, 
0C0H,000H,O42H, 

/* WEAPON CONSTANTS FOR THE MK 61 UNRETARDED =:=/ 

4, OOOH,OOOH, OCOH, 08 3H, 066 H, 039H,0A0H ,00 OH, 043H, 
0C0H,000H,042H, 

/=f' WEAPON CONSTANTS FOR THE MK 116 WETEYF -/ 

2,080H,090H, O39H,O34H,07CH,038H,0C0H,0O0H,O42H, 
08CH, OOOH, 042H, 

/* WEAPON CONSTANTS FOR THE MK 76 WITH LUG */ 

2,080H,00CH , O39H,OD0H,09OH,039H,0C0H ,0OCH,042H, 
OCCH, OOOH, 042H , 

/# WEAPON CONSTANTS FOR THE MK 77 FIREBOMB */ 

4, 000H,000H, OC0H,OAEH,O36H,O38H,C80H ,0O0H,O42H, 
080h, OOOH, 041H , 

WEAPON CONSTANTS FOR THE MK 81 */ 

1 ,0A4H,081H, 042H, 0OOH,OO3H ,000H,0A0H ,000H,043H, 
OCCH, OOOH, 042H, 

/* WEAPON CONSTANTS FOR THE MK 81 SNAKEYE UNRETARDED */ 

4, OOOH, OOOH, 0C0H,0A0H,0C5H,03AH,0CCH ,00CH,042H, 
08CH, OOOH,042H, 

/« WEAPON CONSTANTS FOR THE MK 82 MECh FUZE «/ 

I, 08 4H, 0 13H,042H, OOOH, OOOH, OOOH, OAOH, OOOH, 043H, 
OCOH, 000H,042H, 

/* WEAPON CONSTANTS FOR THE MK 82 ELECT FUZE */ 

1, 0BFH,021H, 04 IH, OOOH,OOOH,OCOH,OAOH ,OOOH,043H, 
OCOH, OOOH, 042H, 

WEAPON CCNSTANTS FOR THE MK 83 MECH FUZE «/ 

1 ,OABH,OEAH, 04 1 H , OOOH , OOOH , OOOH , OAOH , OOOH , 04 3H , 
OCCH, OOOH, 042H , 

/* WEAPON CONSTANTS FOR THE MK 83 ELEC FUZE */ 

1 ,09AH,OE IH, 041H, OOOH , OOOH , OOOH, OAOH , 00 OH , 043H , 
OCOH, OOOH, 042H, 

WEAPON CONSTANTS FOR THE MK 



/ 



/« 






/« 






uuiNOWAiNio rurs inc ni\ 84 */ 

1, 08 OH, OOOH, 041 H, OOOH, OOOH , OOOH, OAOH, OOOH, 04 3H, 
OCOH, OOOH, 042H, 

- - 117 aL =«</ 

04DH ,067H,0A0H ,OOOH,043H, 



WEAPON CONSTANTS FOR THE MK 
1 ,0C7H,0AEH,042H,0A0H, 
OCCH, OOOH, 042H, 

WEAPON CONSTANTS FOR THE MK 



uu i\ i I Ai', 1 i rurs inc m\ 86 WET SAND FILLED 
1 ,0DFH,0D2H, 042H, OOOH,OO0H,OOOH,OCOH,OOCH,O42H, 
08CH, 000H,042H , 

/« WEAPON CONSTANTS FOR THE MK 88 WET SAND FILLED */ 

1 ,OCDH,070H, 041 H, OOOH, OOOH, OOOH, OAOH, OOOH, 043H, 
OCCH, OOOH, 042H, 

WEAPON CONSTANTS FOR THE MK 02 SNAKEYE UNRETARDED */ 
4, OOOH, OOOH, OOOH,OFOH,028H,039H,OCOH,OOOH, 042H, 
08CH,000H,041H, 

WEAPON CONSTANTS FOR THE MK 82 SNAKEYE RETARDED */ 

1 , OOOH, OOOH, OOOH ,0F0H,028H, 039H, OOOH, OOOH, OOOH, 
08CH,000H,042H, 

l,2,O00H,OO0H,000H,0SAH,067H,03BH,OC2H,O8FH,03FH, 
0AFH,0C7H, 03EH, 
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WEAfCN 



/* WEAPCN 




0 ^ / 

OOOH ,000H tOOOH 



UOUntU'JOhfO'^lHt 

^ ’oooh^o6qh^oooh°^ 

088Hi033H,043H,000H,000H,000H, 
CONSTANTS FOR THE ROCKEYE II Tl= 
1 ,093H,006H, 042H,O85H,0F0H,03AH,O 

riROM. nnm-i.riAOu . 



4.0 «/ 

OOOH,OOCH,OOOH. 



/* WEAPCN 



/* 



RETARDED -/ 
OOOH tOOCHtOOOH, 



/« 



08CHt000H,042H» 

03FH, 0B6H, 073H, 03AHtODlH ,0E3H,03FH, 
OACHtOE7Ht035H» 

081H,0FBH, 043H,OOOH»OOOH, OOOH, 

/* WEAPON CONSTANTS FOR THE CBU Tl= 4.0 */ 

08FH,C62H, 042H » OOOH , OOOH , 0 OOH i OOOH , OOOH , OOOH , 
CCFH,05CH,041H, 

1 t2, OCOH,OOCH,OOOH, 0F1H,041H, 03DH,000 H iOOCHtOOOH, 

00 CH, OOOH, OOOH t 

08 OH, OOOH, 043H, OOOH , OOOH , OOOH , 

CONSTANTS FOR THE MK 81 SNAKEYE 
1 , OOOHiOOOH, 000H,0A0H,005H,03AH, 

0CFH,090H, 041H, 

1,2, OOOH, OOOH, OOOH, 0BCH,0EDH,03BH,0C2H,03FH,03FH, 
0EEH,075H, 03EH, 

0ADH,002H , 040H, 09EH,0OBH, 0B5H, 

WEAPCN CONSTANTS FOR THE 20 MM GUN 

3,OBFH,OC5H, 042H , OF 5H , OA IH , OBAH , OC OH , 00 CH , 04 1 H , 
08CH,O0OH,04OH, 

3, 1, 00 OH, OOOH, OOOH,OOOH,OOOH,OOOH,OOOH,OOCH,OOOH, 
OOOH, OOOH, OOOH , 

OOOH, OOOH, 0 OOH, OOCH, OOCH , OOOH, 

WEAPCN CONSTANTS FOR THE 5 INCH ROCKETS */ 

3 ,0C1H, OEBH, 040H, OOOH, OOOH , OOOH, OOOH, OOCH, OOOH, 
08CH,0C0H,041H, 

2, 1,0 OOH, OOOH, 000H,080H,000H,041H,000H , OOCH, OOOH, 
OOOH, OOOH, OOOH, 

CB6H,014H,041H, OOOH,OOOH,OOOH, 

/* WEAPCN CONSTANTS FQR THE !“'K 43 RETARDED 0.4 SEC DELAY «/ 
4, 00 OH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOCH, OOOH, 
09EH,069H,03FH, 

0, 1 ,OOOH,OOCH, OOOH, OOOH, OOOH, OOOH,OOOH , OOOH, OOOH, 
0BDH,070H,C41H , 

OFAH,OE 1H,040H, OOOH , OOOH , OOOH, 

/* WEAPCN CONSTANTS FOR THE HK 57 RETARDE 
4, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, 

0E1H,047H, 03EH, 

0, 1 , OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH ,000H, OOOH, 
08CH, OOOH, 042H, 

0E3H,0D7H, 040H, OOOH, OOOH , OOOH, 

WEAPCN CONSTANTS FOR THE MK 61 RETARDED 0.5 S FC DELAY 
4, 00 OH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH , OOOH, 00 OH, 
0CCh,0CCH,03OH, 

0, 1 , OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH ,00 OH, OOOH, 
0ACH,0CCH,042H, 

0E3H,007H, 040H, OOOH, OOOH , OOOH, 

/’f^ WEAPCN CONSTANTS FOR THE MK 106 MOO 2 */ 

2 T 09BH, 0 06H, 03EH, OOCH, OOOH , OOOH, OOOH, OOCH, OOOH, 
0CCH,0CCH,040H , 

2, 1 , OOOH, OOOH, OOOH, 09 5H.008H ,03EH, OOOH, OOOH, OOOH, 
OOOH, OOOH, OOOH, 

030H,000H , 040H, OOOH, OOOH, OOOH) ; 

/* ASSIGN THE REFERENCE VALUE FROM THE WPNCODE */ 

IREF= WPNCODEI lOVECC IDNO-1 ) ) ; 

/* ASSIGN THE VARIABLES THEIR RESPECTIVE VALUES FROM THE 

WPNCODE */ 

OC J=C TO 2 6Y l; 

CFCRMl ( J) = WPNCODE ( IDVECI IDNO-1 ) +1+J ) ; 

CKG1(JI= WPNCODEI IDVEC( I DiNO- 1) +4<- J ) ; 

CFAX(J) - WPNCuO£( IDVEC( IDNO-1) +7i-J) ; 

DTI(J)= WPNCOOEI IDVECI IDNO-1 )<■ I 0 + J); 

END ; 

/* DECIDE IF SINGLE DRAG WEAPON AND THEN BRANCH 



.v^.ARDEO 0.8 SEC DELAY 
OOOH 5 OOOH, OOOH, 00 OH, OOOH, 
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ACCORDINGLY */ 

IF (IDNO <= 17) THEN GO TO START; ELSE DO; 

/* ASSIGN THE SECOND PORTION OF THE VARIABLES FOR DUAL 
STAGE WEAPONS 

ITYPE= WPNCGDE( IDVECI IDNC-D+13) ; 

I BOTH= WPNCODEI IDVEC( IONO-D + 14) ; 

DC J=0 TO 2 BY l; 

DPI ( J) = W PNC ODE ( I OVEC< I DNC- 1 ) <■ 1 5 + J ) ; 

CFORM2( J)= WPNCGOEI IDVEC( IDNO-1 ) + 18<-J) ; 

Df'ai J ) = WPNCCDEI IDVEC( IDNO-1 ) +21 +J ) ; 

DKG2( J)= i)PNCGDE( lOVECl I DNO- 1 ) +2 A +J ) ; 

DS( J) = WPNCuCEI I DVEC( IDNO- I )+27+J ) ; 

SL( J)= WPNCODEI IDVEC( IDNO-1 )+30+J) ; 

ENC; END; 

/« IF ICNC=23 ASSIGN THE MUZZLE VELOCITY TO VMUZ 
IF ( IDNC = 23) THEN DO J=0 TO 2 BY 1; VMUZ(J)= VMFN(J); END; 

/Y IF THE IDNO=24 ASSIGN THE THRUST TO FN */ 

IF (IDNO = 24) THEN DO J=0 TO 2 BY 1; FN(J)= VMFN(J+3); END; 

/* ERANCH TO THE APPROPRIATE SECTION OF THE CC MATRIX «/ 
START: IF (IREF = 1) THEN GO TO ONE; 

IF (IREF = 2) THEN GO TO TWO; 

IF (IREF = 3) THEN GO TO THREE; 

IF (IREF = 4) THEN GC TO FOUR; 
one: do J=0 TC 53 BY 1; CC(J)= CCVALUE(J); END; 

DO J=0 TC 11 BY l; CT(J)= CTVALUE(J); END; 

GO TO FOUR; 

TWO: DO J=0 TC 26 BY 1; CC(J)= CC VALUE ( J+27 ) ; END; 

DO J=0 TC 5 BY 1; CT(J)= CTVALUE ( J+o ) ; END; 

GC TO FOUR; 

THREE: DC J=0 TO 26 BY 1; CC(J)= CCVALUE ( J+54 ) : END; 

CO J=0 TO 5 BY 1; CT(J)= CTVALU E ( J + 1 2 ) ; END; 

FOUR: RETURN; 

END CECCCE; 

INPUT; PROCEDURE; 

DECLARE J BYTE; 

DC J=0 TC 2; 

VKTS( J)= INOAT( J) ; 

DEG( J) =INDAT(3 + J) ; 

ALT ( J) =I N0AT(6+J ) ; 

END; 

END INPUT; 

DEPIV* PRCCEDURE* 

DECLARE (TEMPlC,"fEMP2C»TEMP3C,TEMP4C,TEMP5C) (3) BYTE; 
DECLARE C0NSTANTS6 (6) BYTE 

INITIAL (0EAH,0b3H,C36H,0E0H?006H,024H) ; 

DECLARE (EIGHT, NINE, TEN) LABEL; 

V = SQRT( VX=«=VX + VY«VY) / 

/* COMPUTE THE VELOCITY OF THF WEAPON 
CALL MULT( .VX, .VX, .TEMPIC) ; 

CALL MULT( . VY , eVY , .TEMP2C ) ; 

CALL ADD ( .TEMPIC, . TEMP2C, . TEMP3C) ; 

CALL SQRT( .TEMP3C , .V) ; 

/« COMPUTE THE MACH OF THE WEAPON 

OM=V’^( 8.9i)5E— 04+3.26E— 09^Y)+DM ^ f 
DC J=0 TO 2 BY 1; 

TEMP1C(J)= C0NSTANTS6( J) ; 

TEMP2C(J)= C0NSTANTS6( J + 3) ; 

END; 

CALL MULTI .Y, .TEMP2C, .TEMP3C ) ; 

CALL ACC( .TEMP3C, . T EMP 1 C , . T E MP4C ) ; 

CALL MULTI .V, . TE MP4C , . TE MP5C ) ; 

/* DEtHmIN THE^REGIOn' OF^T^ DRAG CURVE WHICH IS 
APPL I CABL E */ 

IF (2 = COMPARE! .CM, ,CT( MSTG) ) ) THEM GO TO EIGHT; 

E IGHT:^^f F^<2^= C CMPARE ( .CM , . CT ( MSTG+ 3 ) ) ) THEN GO TO NINE; 
IRFG= 9; GO TO TEN; 

^/*^DO THE^ INTERMEDI ATE BALLISTIC CALCULATIONS */ 

/* CKDG=Di<G + CF*(CC( 1 REG , 1 , MSTG ) + ( CC ( I REG, 2 , MSTG ) + 

CC( IREG,T,MSTG) YCM) *CM) */ 
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TEN: 84SEADDRESS= TABLEH-IREG; 

CALL MULT < .CM , .CC ( BAS EAODRESS+6 ) , .TEMP 1C ) ; 

CALL ADC{ .TEMPI C, . CC { B AS EAOD RE SS +3 ) , . TEM P 2C ) ; 

CALL MULT( .CM, . TE MP 2C , . TE MP3C ) ; 

CALL ADC( . TEMP3C , . CC( BASEADORtSS ) , .TEMP4C) ; 

CALL MULT( .CF,.TEMP4C, .TEMP5C); 

CALL AOC( .TEMP5Ct .CKG, .CKDG) ; 

/* HH= TH/V-RH0*CKDG-V «/ 

CALL MULTI .V, .CKDG, .TEMPIC I ; 

CALL MULT{ . TEMPI C , .RHO, .TEMP2C ) ; 

CALL DIV ( . TH, .V, . TEMP3C ) ; 

CALL SUB{ .TEMP3C, .TEMP2C, .HH) ; 

/* AN2= HH-VX 

CALL MULT{ .HHt.VX, .AIM2 ) ; 

/’!'• AP2= HH#VY-G 

CALL MULTC .HH , .VY , . TEMP4C) ; 

CALL SUB( .TEMP4C, .G, .AP2J ; 

RETURN; END CERIV; 

RUNGE: FRCCEDURE; 

DECLARE CGNSTANTS5 (9) BYTE 

INITI AL(09BH, 0B2H,038H,093H,0A6H,029H,03Dh,00BH,018H) 
/* CALCULATE THE AO VALUE AO= A*0 

CALL MUl T( .Al, .0, ,A0) ; 

ASSIGN THE VARIABLES THEIR INITIAL VALUES */ 

DC J=0 TO 2 BY 1; 

YC{ J)= Y( J) ; 

VXC(JJ= VX(J); 

VYC( J) = VY( J) ; 

enc; 

CALCULATE THE AIR DENSITY 

Re:0=2.37E-03- Y=M6.87E-08-Y*6.71E- 13) «/ 

DC J=G TO 2 BY 1 ; 

TEMP1B(J)= C0NSTANTS5( J) ; 

TEMP2B{ J)= Cr)NSTANTS5( J + 3) ; 

TEMP2B( J) = C0NSTANTS5( J+6> ; 

END; 

CALL MULT{ .Y, . TE M P 3B , . TE MP4B ) ; 

CALL SU6( .TEK:P2e, . T EMP4 6 , . T E MP5 B ) ; 

CALL MULTI .Y, .TE -1P5B, .TEMP6B ) ; 

CALL SU3( .TEMPI B, .TEMP6B, .RHO) 

/>!' MAKE the FIRST CALL TO THE DEPIV PROCEDURE */ 

CALL DERIV; 

/« UPCATE THE POSITIONS AND THE VELOCITIES =«/ 

/=i'- Y= YC + AD*VY '^f 

CALL MULTI. AD,. VY,.TEMP1B); 

CALL AOCI .TEMPIB, .YC,.Y) ; 

DC J=0 TO 2 BY l; 

AP1(J)= AP2IJ); 

AM(J)= AN2IJ); 

ENC ; 

/« VX= VXG + AD^^'ANl */ 

CALL MULTI . ANl , .AD, .TEMPIB) ; 

CALL ADD! ,VXC, .TEMPIB, .VX) ; 

/y'f VY= VYC+AD'-MPl 

CALL MULTI .API AD, .TEMP2B) ; 

CALL ADD! . VYO, .TEMP2B, .VY) ; 

/* CALCULATF THE AIR DENSITY 

RH0=2.3 7E-03-Y^M6.87E-08-Y*6 .7iE-l3) «/ 

DO J=0 TO 2 BY l; 

TEMP1BIJ)= C0NSTANTS5 I J) ; 

TEMP2BIJ)= C0NSTANTS5 IJ<-3) ; 

TEMP3BlJ)= C0NSTANTS51J+6) ; 

END; 

CALL MULTI .Y, .TEMP3B, .TEMP4B ) ; 

CALL SUBt .TEMt^2B, .TEMP4B, .TEMP5B) ; 

CALL MULTI . Y, .TEf1P58, .T5MP68) ; 

CALL SUBI .TEMPIB, .TEMP6B, .RHO) ; 

MAKE THE SECOND CALL TO THE DERIV PROCEDURE «/ 

CALL DEPIV; 

/* COMPUTE TFE TIME, POSITION AND VELOCITIES 
/^i= T= T + D */ 

CALL ADDI .TM, .D, .TM) ,* 
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X= X + D*( VX04-AA*( VX-VXO ) ) */ 

CALL SUB { .VX, .VXO, .TEMP23) ; 

MULT( .AA, .TEf^P2B, .TEMP3RI 
AD'J( .VXO, .TEMP36, .TEMP4B) 
MULT ( .TEMPOS , .Dt .TEMP5B ) 
ADD( .X,.TEMP5B,.X) ; 



CALL 

CALL 

CALL 

CALL 



V.PLL AUU \ •At# itr*lrPbf#A} t 

Y= YC-l-0*( VYO + AA*( VY-VYO ) ) «/ 

CALL SU3 ( . VYt .VYQ, .TEMP2B) ; 

TAII MINT/ A A TCin'YD Trr*k;»r»o; 



CALL 
CALL 
CALL 
CALL 
C ALL 



SU3 ( . 
MUL T( 
ADD( . 
HULK 
ADC( 



AAt.T£MP2B,.TEMP38); 
VYO, .TFMPBBr .TEMP4B) ; 
.TEMP43, .D, .TEMP5B); 

YO, .TEMP5B, .Y) ; 

VX= VXO + D'-'( ANH-AA=M AM2-ANI ) ) */ 

CALL SUS< .AN2 , .AMI , .TEMP2B) ; 

MULT< .TEMP2B, .AA, .TEMP3B) ; 
ADC( .TEMP33, .ANl, .TEMP4B) ; 
WULT< .D, .TEMP4S, .TEMP5B) ; 
ADO( .VXG, .TEMP5B, . VX ) ; 

VY= VYO+-D-( APlfAA* ( AP2-AP1 ) ) 

CALL SUS( . AP2 , . API , .TEMP2B) ; 

TEMP2B, . AA, .TEMP3B) ; 



CALL 

CALL 

CALL 

CALL 



CALL MULT( 

CALL 
CALL 

call 
RETURN ; 

END PUNGE; 

TRAJ: PPCCEDURE; 

DECLARE (FIVE, SIX, SEVEN) LABEL,* 

AMT <;a RVTP 



ADD( . API , .TEMP3B, .TEMP43) 
MULT( .D, .TE -1P4B, .TEMP5B) ; 
ADD( . VYQ, .TEMP53, ,VY) ; 



UcLLAKt \ r 1 V c , 3 1 X , St Vb 
DECLARE CONST AMT S4 (4) oiit 

INITIAL (OOCH,OOOH,OOOH,0 ) ; 

r -< r rut \l A 3 T f. O I d C Cl r\ ,1 



BYTE 

INITIALIZE THE VARIABLES 
MSTG= C0NSTANTS4( 3 ) ; 
TABLE1= C0NSTANTS4(3) ; 



FOR THE TRAJECTORY PROCEDUR 



DC J=0 TC 2 BY l; 

CF( J)= CFORMl ( J) ; 

OM( J) = DM1 ( J> ; 

DKG(J)= DKGl(J); 

VX { J)= VXA( J) ; 

VY( J|= VYA( J) ; 

TH(J)= FN(J); 

Y(J)= ALT(J); 

Y A ( J ) = Y { J ) ; 

X( J)= CONST ANTS^( J ) ; 

TM( J)= CCNSTANTS4( J) ; 

END; 

/* DETERMINE THE TYPE OF DRAG «/ 

IF (ITYPE=3) THEM GO TO FIVE; 

/« CALCULATE THE STEP SIZE C=OS<-SL*U */ 

CALL MULT( ,SL ,.U, .TEMPIA) ; 

CALL AOC( .TEMPI A, .DS, .D) ; 

GO TO SIX; 

/* SET TFE STEP SIZE TO THE MAX ALLOWED D= OMAX '!</ 
FIVE: DO J=0 TC 2 BY 1; D(J)= OMAX(J); END; 

CALL THE RUNGE PROCEDURE FOR THE INTEGRATION */ 
SIX: CALL RUNGE; 

/* CALCULATE THE DTV VALUE DTV= 1 /G* ( VY4-SQR T ( VY=:=* 2f 
2,=«‘G^-Y)) 4/ 

CALL MULT( .G, .Y, .TEMP2A) ; 

TEMP3A= TEMP2A; TEMP5A(1)= TEiMPZAd); 

TEMP3A(2) = TEMP2A(2)<-1; 

CALL MULT( .VY, .VY,.TEMP4A) ; 

CALL ADD( .TEMP4A, . TEMP3A , . TEMP5A ) ; 

CALL SQRT ( . TEMP5A , .TEMP6A) ; 

CALL ADC( .TEMP6A, .VY, .TEMP7A) ; 

CALL 01 V( .TEMP7A, .G, .DTV) ; 

00 J=0 TC 2 BY 1; D(J)= DTI(J); END; 

IF (IDNC <= 17) THEN GO TO SEVEN; 

IF (IDNC = 23) THEN GO TO SEVEN; 

SET THE SECOND STAGE DRAG PARAMETERS */ 

MSTG=6; TABLE1=27; 

IF (ITYPE=2) THEN DO; MSTG=0 ; TABLE1= 0; END; 

DC J=0 TO 2 BY l; 



if f 
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DKG(J)= DKG2(J); 

D^MJ)= DM2(J); 

CF( J)= CFCKM2( J ) ; 

TH(J)= CONSTANTS^( J) ; END; 

/« TEST THE STEP SIZE VERSUS THE VftCUMN FALL STEP SIZE 
SEVEN: IF ( OOCCMPARE ( . OTV , . D) I THEN GO TO SIX; 

/« SFT THE STEP SIZE TO THE VACUMN VALUE =«'/ 

OG J=0 TO 2 3Y l; 

DIJ )= DTV( J) ; 

END; 

/« SET THE DRAG PARAMETERS FOR THE FINAL INTEGRATION 
STEP 

MSTG= 6; TA6LE1= 27; 

IF (ITYPE=2) THEN DO; MSTG= 0; TABLE1=0; END; 

DC J=0 TO 2 BY 1; 

DKG(JI= DKG2(J); 

DK( J)= DM2U) ; 

TH( J)= CONSTANTSA! J) ; 

CF(J) = CF0RM2! J ) ; 

END; 

/« CALL RUNGE FOR THE FINAL INTEGRATION 
CALL RUNGE; 

/* CALCULATE THE DTV VALUE DTV= 1/G* ( VY+SQRT (VY**2f 
2.>i‘G*Y)) */ 

CALL MULT! .G? .Y , .TEMP2A I ; 

TEMP3A= TEMP2A; TEMP3A!1)= TEMP2A!!); 

TEMP3A! 2)=TEMP2A(2H-1 ; 

CALL KULT! .VY t .VY , .TEMP4A) ; 

CALL ADC! .TEYPAA, .TEMP3A, .TEMP5A) ; 

CALL SORT! . TEMP5A t . TEMP6A) ; 

CALL ADO! . VY, .TEMP6A, .TEMP7A) ; 

CALL DI V! .TEMP7A, .G, .DTV) ; 

/- UP CATE THE TIME OF FALL OF THE WEAPON TM= TM<-OTV 
CALL ADD! .DTV, .TM, .TM) ; 

/=!= UP-DATE THE DOWN RANGE TRAVEL OF THE WEAPON 
X=X+DTV-VX */ 

CALL MULT! .DTV, .VX, .TEMP2A) ; 

CALL ADD! .X, .TEMP2A, .X) ; 

/« SET THE Switch for the print procedure */ 

SWITCH= o; 

RETURN ; 

END TRAJ; 

DECLARE CTE!3) BYTE; 

CTE^OCOH; 

CTE! 1 )=0H; 

CTE! 2)=42H; 

SET=l; 

CALL SETOAT; 

CALL INPUT; 

SET=2; 

CALL SETDAT; 

CALL DECODE; 

SET=3; 

CALL SETDAT; 

CALL TRAJ; 

CALL DIV!.X,.CTE, .X) ; 



END 



OUTPUT ! 6 ) =OFFH ; /* INTERRUPT */ 
0UTPUT!6 ) =0H; CLEARS INTERRUPT */ 

DO WHILE INPUT!7)OINTER; END; 

DO 1=0 TO 2; 

DO WHILE INPUT!7) <> I+l; END; 
OUTPUT! 7) =X! I ) ; 

end; 

C0UNT=C0UNT<-1 ; 

CALL TIME! 5); 

/❖ WAITS FOR REPLY FROM EXEC. */ 

IF INPUT! 7) =FRCM$BUFF£R THEN DO; 
OUTPUT ! 7) =FR0MS8UFFER; 

/❖ TELLS EXEC TO SEND DATA -/ 

GO TO LOOP; 

END; 



«/ 
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f<FTURN; 

END SERV$TWO 



DO FOFEVER; 

CCLM = 0; 

OUTPUT<6)=0; /* CLEARS INTERRUPT 
OUTPUT! 7 ) =INIT; 

/* THIS REANS: SAL IS READY -V 
DO L'HILE INPUT!?) <> INIT; END; 

kAITS FOR THE lONO «/ 

CALL SERV$0NE; 

DO WHILE COUNT <> 5; 

/« COUNT IS CONTROLLED BY SERVSTWO PROCEDURE 
OUTPUT!7)=DAT; 

DO WHILE INPUT!?) <> OAT; END; 

/* WAITS FOR DATA «/ 

CALL SERViTWO; 

END; /* WHILE COUNT */ 

END; /* FOREVER -/ 

EOF 
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